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ABSTRACT 


PROJECT CONTROL USING THE PROBLEM-ORIENTED 
LANGUAGE PROJECT 


by 
LTJG JOHN THEODORE MACDERMOTT, CEC, USN 


Submitted to the Department of Civil Engineering on August 21], 1967 in 
partial fulfillment of the requirements for the degree of Master of 
Science in Civil Engineering. , 


The problem-oriented language PROJECT, of which this research 
forms a part, was developed in order to facilitate the use of CPM and 
PERT on any project which can be described in terms of work items. The 
area with which this thesis deals is that of monitoring a project's prog- 
ress. As is true of the rest of the PROJECT subsystem, nce special con- 
puter knowledge is necessary to use this feature since all instructions 
to the computer are couched in the language of project management. 


The preparation of PROJECT's progress control capability was 
marked by two phases. The first phase centered around the development 
of the measures to be used as monitors. The concept underlying this de=- 
velopmental work was that of comparison. Actual work progress and costs 
are compared with estimated work progress and costs in order to determine 
a project's status. In addition to being able to determine the status of 
the project as a single entity, the status of any subset of activities-- 
called sub=-networks-- can be determined also. 


The second phase of this research was concerned with interfacing 
the monitoring feature with PROJECT. It was during the implementation 


phase that the algorithms developed earlier were translated into workable 
computer programs, compatible with PROJECT. 


Thesis Advisor: Professor Albert G. H. Dietz 


Tithe: Professor of Civil Engineering 
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Introduction 


PROJECT is a problem-oriented computer language which was designed 
and developed by William H. Linder in the Department of Civil Engineer- 
ing at the Massachusetts Institute of Technology. PROJECT is a subsys- 
tem of the Integrated Civil Engineering System (ICES). Briefly described, 
the capabilities of ICES PROJECT are: 

1. to represent a project in terms of work items and time; 


2. to make projections (over a project's lifetime) of in- 
curred costs and resource consumption; 


3. to adjust project schedules to satisfy time or resource 
constraints; and 


4. to provide a method of monitoring project progress. 

The last item in the list of PROJECT capabilities-~project control-- is 
to be the subject of this paper. The concern with project control stems 
from the fact that a prime function of an organization which undertakes 

a project of any sort is the management and control of the resources as- 
sociated with that project. Increased emphasis on rapid completion, 
brought about by keen marketing competition and high interest rates on 
Perrowed money, and the technology "explosion" which has permeated 

nearly every field of endeavor are but two of several significant factors 
which have helped to increase both the difficulty and importance of man= 
aging and controlling capital investment projects. 

In his book Control and Management of Capital Projects, J. W. 
Hackney suggests that the techniques for the "control of projects natur- 
ally group themselves into those related to: 

eCapital cost -- estimating and controlling the money invested 


‘Time -- planning, scheduling and monitoring for smooth progress 





and toward early completion 


‘Value -- pre<determining and controlling income as related to in- 
vestment, operating costs and risks"! 


In PROJECT, the progress control monitor is based on work progress and 
financial progress. 

Because it was recognized that the project manager is already bur- 
dened with a good deal of information, a prime consideration in the de- 
velopment of the project control monitor was that it provide worthwhile 
information yet be simple. The goal, then, was to provide the project 
manager with a single value which is an indicator of the project's sta- 
tus. The philosophy behind PROJECT's progress control feature is that 
of "management by exception." This means that actual work and cost pro- 
gress are compared with estimated work and cost aut eee to indicate 
those areas of the project which may prevent the project as a whole from 
finishing (1) on schedule and (2) within its budget. 


The Road Ahead 


The next chapter of this paper deals with the mathematical formu- 
lation of the status index and its components. Chapter Three discusses 
the philosophy of computing the status index =-- the assumptions and limi- 
tations inherent in it. In the fourth chapter, the commands for using 
the project control feature are reviewed. Chapter Five is devoted to a 
sample problem which illustrates how all phases of this work tie together 
as a usable part of the PROJECT subsystem. The last section, Chapter Six, 


suggests some areas in which more work might be done and concludes by 


eam 2 se: 2 aR ss SES SSB SSH ew eZ ow SS SFT oe eweewny, ow SZ Gam ewer tT es fe ow ee FSB SSP SS? SP SSP ese eee eee ee 


tcontrol and Management of Capital Projects, J. W. Hackney, John Wiley & 
poms, 2nc., 1965, pg. 3. 





presenting some general observations. In Appendix A, the interested 
reader will find listings of the programs pertinent to PROJECT's prog- 
ress control] feature. Appendix B briefly describes the PROJECT command 


structure. 
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CHAPTER TWO 


Ge ee ee ee eee 


2.1 The Work Progress Component 
2.2 The Financial Progress Component 
2.3 The Status Index 
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The Status Index and Its Components 


"Can we finish on time and remain within the project's budget?" 
This question, often raised by project managers, points to two items which 
are critical to any project--time and money. Concern with work and finan- 
cial progress has provided the motivation for the development of a status 
index based on these items, The status index, formed from the product of 
factors representing work and financial progress components, forms the 
basis of PROJECT's progress control feature. 
2.1 The Work Progress Component 

Before developing the work progress component of the status index, 
it is necessary to present some definitions. 


1. Original project duration: T 


This is the original estimate of the project duration<--the re- 
sult of the first unrevised, but complete, planning schedule. Ex- 
cept for a situation to be discussed later, T is a project constant. 


2. Revised project duration: T* 


This is the latest revised estimate of project duration. It 
is based on data reported from the project site and is equal to the 
time from the project start to the present plus the most recent es- 
timate of how long it will take (again, measuring from the present) 
to finish the project. 


3. Elapsed time: t 


t is the time from project start to the present. 
4, Remaining time: t" 


t' represents the latest revised estimate (measuring from the 
present) of how much longer it will take to finish the project. 
As the project advances, t' is estimated over successively smaller 
time intervals and should, therefore, be increasingly accurate. At 
ehe project start, T = 1 sos. 


5. Initial amount of time recoverable: K 


=e ee SF LS 6 8 — Bee eee oS > —“‘i‘iaD 


K is the amount of time which can be "made up" over the project 
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lifetime by accomplishing the appropriate activities as quickly as 
possible. K is estimated at the start of the project; it is a para- 
meter evaluated for each project and is the amount of time recover- 
able when t = 0, 

6. Current amount of time recoverable: J 


See Ss TS 25S CCAS Se Ee eee ee 2 eee ee eee 


This is the amount of time which can be made up at any point 
in the project's lifetime. J is a function of the original project 
duration, the total time recoverable and the elapsed time -- 

Sea fe (1 Kot). 

As the project advances, less and less time can be made up by 
crashing activities. Just how the amount of time which can be made up 
behaves is not clear, but to a first approximation it is reasonable to 


assume that it decreases linearly. With this assumption of linearity, let 


= eps 
go > (2.1) 


When J is less than (T' - T) the project will take more time to complete 
than can be made available even if all succeeding activities are crashed, 

Figure 2.1 shows graphically what has been presented thus far. The 
significance of the parameter K becomes clear at this point. As the 
value which fixes the time recoverable curve (here, the straight line 
represented by J), K must be carefully determined and ought not be modi-~ 
fied unless the project schedule is changed. Figure 2.1 suggests a num= 
ber of other noteworthy points. First, for any value of time t (where t 
is less than T) the value (ordinate) of the corresponding point on the 
line J represents the time which could be made up by making a maximum 
effort. Next, the value of the ordinate at a is the amount of time that 
the project is behind schedule. Finally, if the point a and the line J 
happened to be coincident, the project can be finished on time if a maxi- 
mum effort is made, 


In terms of the previous definitions, the work progress component of 
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the status index is 


Tee a) oie) (2.2) 
J 


When actual work progress agrees exactly with what was scheduled, I,, = l. 
If the actual work is further along than was anticipated when the sched- 


ule was prepared, I,, reflects this fact by assuming a value preater than 


W 
1. Should actual work represent less of an accomplishment than was plan- 


ned for a particular time, I,, will be less than unity. These conditions 


are summarized in the following table. 








Values Chalice Implication 
less than one behind schedule 
equal to one exactly on schedule 

greater than one ahead of schedule 


In the definition of the project parameters T and K, circumstances 
were alluded to under which these values might change. If it happens 
that J is less than (T' - T) it is unwise to continue to deal in terms 
of the current network because, based on the estimate of time recoverable, 
there is no possibility of finishing by time T. In this situation, the 
network must be modified to reflect (1) the work actually finished and 
(2) changes in the work plan. The project network should be modified to 
represent this "new" project and revised values of the parameters T and K 
should be associated with the revised project. 

When t = T, J = 0 and the work progress measure 2.2 goes to infinity. 
This means that the work progress component (and hence the status index) 
cannot be computed for the last day of the project. This does not con- 
stitute a major limitation since the value of the status index when the 


project is essentially complete is not of great interest. It is of in- 
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terest to note the effect of the difference (T' - T) on the behavior of 
the work progress component. When the project is on senate Iy is one, 
suggesting that T' = T. If the project is behind schedule, (T' = T) is 
greater than zero; the quantity (T' - T) acts to decrease the numerator, 
making it smaller than the denominator. In this case, should the numera- 
tor become negative (that is, J less than (T' = T)), the situation is in- 
feasible with respect to time and the project must be reconsidered. 
Should the project be ahead of schedule (T' - T) is negative; this quan- 
tity now acts to increase the value of the numerator in 2.2. In this 
case, I. will grow larger than one, behaving as advertised, There may 

be some concern with the fact that the denominator of 2.2 decreases while 
the numerator remains relatively constant (approximately equa] to (T' -T)). 
This concern is unwarranted since (T' - T) strictly positive means that 


the project will finish on day T' which occurs before day T. Mathematic- 





ally speaking, this means that J is bounded from below by a value larger 
than zero, hence the denominator does not go to zero. 
2.2 The Financia] Progress Component 

As was indicated at the pecee a the general concept behind the 
status index and its components is to compare actual progress with ex- 
timated progress. In the financial component of the status index, this 
goal is achieved by relating, for a specific time t during the project's 
lifetime, (1) the amount of money actually spent, (2) the amount sched- 
uled to have been spent and (3) the original estimate of the total pro- 
gect cost. 

Before proceeding with the discussion, it is necessary to consider 


the following terms: 





16 


1. Let C represent the original estimate of the total project cost. 

2. Let A be the amount of money scheduled to be spent by time t. 

3. Let A’ represent the amount of money actually spent at time t. 
For the sake of clarity, a graphical interpretation of these symbols ap- 
pears on the following page in figure 2.2, Two points can be made con- 
cerning this diagram. First, the actual spending curve is known only 
for the completed part of the project; therefore, for time subsequent to 
t this curve is represented by a dotted line to indicate that it is an 


' Of course, since t approaches T, the “educated guess" 


"educated guess.’ 
is based on an ever decreasing time interval and should, therefore, be 
increasingly accurate. The second point to be made is that the terminal 
points of the actual spending curve and the estimated project cost curve 
need not be coincident--that is, the project may cost more (or less) than 
the original estimate. 


In consonance with the "definitions" of the symbols A, A‘ and C, 


the financial progress component is 


ee Cee ee (2.3) 


C 

The cost progress measure (2.3) behaves in precisely the same way 
as the work progress measure (2.2). A value of I equal to one implies 
that scheduled expenditures and actual expenditures agree exactly--that 
is, A' = A. A value of I, larger than one means that (A' - A)<0O and 
less money has been spent by time t than was originally estimated. Sim- 
ilarly, if I, is less than unity, then at time t more money has been 
spent than was planned and (A’ - A)>0. The following table summarizes 
the implications of various values of the financial progress component 


of the status index. 
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Value of I, Implication 
less than one overrunning budget 
equal to one exactly on budget 

greater than one underrunning budget 


2.3 The Status Index 
PROJECT's progress control feature, the status index, is the pro- 
duct of the cost and time measures: 


Sie= i xt (2.4) 


The status index indicates agreement between planned and actual progress 
when its value is one. A value larger than unity indicates actual prog- 
ress is ahead of planned; a value less than one suggests that actual 
progress has fallen behind scheduled progress. 

Since the status index is a product, it is necessary to be aware of 
the cancelling effects of its formation. For example, if I, = 0.5 and 
I, = 2.0 then SI = (0.5)x (2.0) = 1.0. This value would imply that the 
project was on schedule with respect to both cost and work progress=- 
certainly this is not correct. The problem just described constitutes 
one aspect of the more general question of interfacing the status index 


with ICES PROJECT. This is to be the subject of the next chapter. 
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CHAPTER THREE 


The Status Index and ICES PROJECT 
3.1 Data Structure 

3.2 Computation of the Cost Component 

3.3 Computation of the Work Progress Component 
3.4 Project Sub-networks 
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The Status Index and ICES PROJECT 

Providing PROJECT with a progress monitor can be thought of as a 
two step operation. The first step, considered in the last chapter, in- 
volved developing a suitable monitor. The second step centers around 
the problem of interfacing the monitor with PROJECT. As will be shown, 
more is involved in the implementation of the status index than just pro- 
gramming considerations. The philosophy behind the computations, toge- 
ther with the assumptions and limitations inherent in the monitoring 
feature, are the subject of this chapter. 
3.1 Data Structure 

Each project may have as many as eight disk files associated with 
it. These files, called NAME] through NAMES (viz. WALTHAM3) are used 
to store data on the particular paoject under consideration, 

PROJECT's progress monitoring feature deals with disk file NAMES8, 
The structure of this file consists of three levels: two levels are 
used for bookkeeping and can be thought of a pointers, the third level 
is used for data storage. The first time reported progress data is 
stored for a particular project, NAME8 is established by creating a 
first-level logical record ten words* long. The first word of this rec- 
ord contains the address of a second-level logical record which is NOACT 
words long, where NOACT is the number of activities in the network. 


Each word of the second logical record contains a zero when it is first 


created. When progress data is reported for a particular activity, a 
third-level record corresponding to that activity is created; this rec- 


ord is also ten words long. The address of this third level record is 


—_— ss os es ew eee eS eee eee eee OS eee eee eee eed 


* A"word" in computer terminology is a unit of storage. 
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stored in the second level logical record in the position corresponding 
to the activity under consideration.* The logical record on the third 
level contains the reported progress data. The first word of this record 
contains the cost (if reported), the second word contains the reported 
activity finish date (if reported) and the third word contains the start 
date (if reported). All dates are stored as project workdays. If any 
of the possible data items=--cost, finish date or start date--are omitted, 
the corresponding word of the activity data record is not changed; this 
means that until a cost, finish or start is reported, the corresponding 
word in the activity data record contains a zero. 

In order to add some measure of clarity to the foregoing descrip- 
tion of NAME8, the following example and diagrams are presented. Con= 
sider a project having seven activities. Assume progress is first re= 
ported on the third activity: this creates disk file NAME8 for the pro- 
ject and stores the data as shown in figure 3.1 on the following page. 
Arrows are used to denote the pointer arrangement alluded to earlier. 

If progress is subsequently reported on the second activity, NAME8 would 
be structured as shown in figure 3.2. 

It seems that much space is unused in NAME8. This is the case; 
however, it is anticipated that the uncommitted space will be used in 
connection with resource allocation and leveling in the near future, 


3.2 Computation of the Cost Component 


As discussed earlier, the cost component of the status index is 


nr ast Sa ert ww SCO OO eS Oe OOS OS Oe eee eS lel OEP eet eee er eS leer eer ee lee Sl Eee Ee ete Sl eee eet 


* The activities comprising a network are ordered topologically. Thus, 
ena Network consists of activities 5,710; 20, 25 and 30, activity 5 is 
the first activity, activity 10 is the second, and so on. If progress 
is reported on the third activity, the third word of the second-level 
logical record will contain the address of a third-level logical record 
which itself contains the reported progress data for, in this example, 
activity 20. 
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ere ey 
C 

In order to carry out this computation for time t, it is necessary 
to know (1) the sum of the estimated costs for each activity (this is C), 
(2) the amount of money planned to be spent by time t (this is A) and (3) 
how much money was actually spent by time t (this is A‘). there are two 
very significant points to be made. First, costs are based strictly on 
activity costs; no effort is made to take into account overhead costs. 

The second point is that if an activity is in progress at the time a com- 
putation is called for a linear portion of the cost assigned to that ac- 
tivity is taken. For example, assume that a particular activity has been 
assigned an estimated cost of $600; if a computation is requested when 
the activity ought to be two-thirds complete, this activity's contribu- 
tion to the estimated cost to date fipure will be $400. 

The method of determining the estimated cost to date for the project 
is most clearly explained by using a flow chart of operations, as found 
in figure 3.3 on the next page. The actual cost to date is computed in 
exactly the same fashion except that if an actual cost for an activity 
has not been reported, it is assumed that the estimated cost for that ac- 
tivity is accurate and is a reasonable figure on which to base the com- 
putation. If it is found that there is neither an actual nor an estimated 
cost for a particular activity this activity makes no contribution at all 
to the actual cost to date figure. 

It is clear that a limitation of the system is that an estimated cost 
must be available on at least one activity if the cost component or the 
status index is to be computed. This requirement obtains because if no 


estimated costs are available, the cost component would be QO, hence 
0 
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Figure 3.3: Determining the estimated total cost to date 
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indeterminant. A second limitation is that if actual costs are not re-~ 
ported for activities, then in equation 2.3 A = A’ and I, = 1.0. Thus, 
if actual costs are not reported, the status index is nothing more than 
the work progress component tagged with a different name, 


3.3 Computation of the Work Progress Component 


The work progress component of the status index is 


I, = J ~ (T' - T) , where J = K(1 - a 


J 

The determination of J is straight-forward since K, t and T are 
known. When t = T, as was pointed out earlier, J is zero and the com= 
putation of Iy is not allowed; in PROJECT, a check is always made to in- 
sure that J has a non-zero value. 

Assuming that J is valid, it remains only to determine the value of 
T', the latest revised estimate of the job duration. This computation 
is based on the reported progress information for the network activities 
which has been stored in NAME8. Reported progress data on an activity 
may consist of an estimated total cost, a start date, a finish date or 
any non-repetitive combination of the these items. Since costs play no 
role in computing the work progress component, there are four cases to 
be considered for each activity in the network: (1) Neither a start 
nor a finish has been reported. In this case, it is assumed that the 
duration as originally input is accurate and that the activity will be 
executed at the time specified by the working schedule. (2) A start 
date has been reported but a finish date has not. In this situation, 
the original activity duration is used to compute a finish date for the 
activity; the activity under consideration is then fixed in time by these 


two dates, (3) A finish date has been reported but a start date has 
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not. This case is analogous to the preceding one in that the original 
activity duration and the reported finish date are used to compute a 
start date; these dates then serve to fix the activity in time. (4) 
Both a start and finish date have been reported. Here, the given dates 
fix the activity in time and are used to compute a new activity duration. 

The primary function of the reported start and/or finish data is to 
fix certain activities in the network with respect to time. This “fixed 
schedule" information is used as input data to perform the standard for- 
ward pass algorithm; this forward flowing of the network yields the la- 
test revised estimate of the job duration, T'. Note that a backward pass 
is not made using the fixed schedule information. This is because the 
backward pass is useful for determining (1) the network's critical path 
and (2) total and free float associated with each activity; neither of 
these items is of particular concern when determining the work progress 
component of the status index, 
3.4 Project Sub-networks 

Thus far all discussion has centered around performing progress 
monitoring computations for the project network as a whole. It is en- 
tirely reasonable, quite likely, in fact, that the project manager may 
be deeply concerned about the performance of one or several subsets of 
network activities. PROJECT provides several methods of identifying such 
subsets~-referred to here as project sub-networks. Moreover, PROJECT's 
progress control feature is capable of performing status index computa- 
tions for sub-networks in a fashion similar to the method used for the 
network as a whole. The word "similar" is stressed in the preceding 


sentence because the network and sub~network computations differ on one 
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basic point as will be explained in the following paragraph. 

In performing a status index computation for a sub-network, all ac- 
tivities not a part of the subset being considered are assigned a zero 
duration, The idea here is to retain activity interdependencies while 
eliminating information which may be prejudicial to the computation for 
the sub-network. A consequence of assigning zero durations to activi- 
ties not in the sub-network is that reported progress data on activities 
which are a part of the sub-network cannot justifiably be used to fix 
these activities in time as was done when the computation was made for 
the network as a single entity. The following example will serve to 
clarify this point. Consider the network shown in figure 3.4a. Suppose 
the sub=-network of interest consists of activities 10 and 40. The sub- 
network can be pictured as in figure 3.4b. The sub-network duration is 
four time units. Now assume (1) that activity 40 started on schedule 
(day 8) but finished one day late (day 10) and (2) that sub-network 
computations for determining T' were based on the same algorithm used 
for the network as a whole. Under these conditions, activity 40 would 
be constrained to start on day 8 and finish on day 10; this would yield 
a sub=-network duration of nine time units when, in fact, it took but five 
time units to complete the activities of interest. In order to avoid 
this misleading situation, the reported progress data for a sub-network 
of activities is used only to determine revised durations for activities 
comprising the subset. Thus, unless both a start and finish date are 
given for an activity, it is assumed that the original duration is ac- 
curate and may be used as a basis for computing the latest revised esti- 
mate of the sub-network duration. A very significant ramification of 


this basis for computing the sub-network T' is that so long as the 





oO 
durations of activities in the sub-network do not change, I,, for that 
subset of activities will be unity, regardless of whether the activity 
was completed between its scheduled dates. For clarification of this 
point, consider the network shown in figure 3.4c. Suppose activity 20 
actually took five time units to complete instead of four as planned, 
Both the latest revised estimate and the original estimate of the sub- 
network (activities 10 and 40) duration would be five time units and are 
not affected by the delay in activity 20 since this activity is not a 
part of the sub-network of interest. 

In addition to the method of determining the sub-network duration, 
the method of arriving at the amount of time recoverable for a sub- 
network must be discussed. This computation is quite straight-forward. 
The original estimate of the sub=-network duration is divided by the ori- 
ginal estimate of the project duration; this quotient is multiplied by 
the estimate of time recoverable for the project and the result is taken 
as the time recoverable for the sub-network, For example, say project 
has a duration of forty days and that a sub=-network of interest has a 
duration of ten days. If the estimate of time recoverable for the pro- 
ject were eight days, then the time recoverable for the sub-network would 
be (10) x 8 or two days. 

40 

In closing this discussion of sub-networks and the computations re- 
lated to them, it should be pointed out that cost computations--both es- 
timated and actual--are carried out in exactly the same way as they are 
performed for the network as a whole. 

This chapter has dealt with the question of interfacing the project 


monitor with ICES PROJECT. Pertinent algorithms, limitations and assump- 
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tions have been discussed in detail. The computer programs, 
illustrating how these algorithms, limitations and assumptions have 
been used in this development, may be found in Appendix A of this 
paper. The next section, Chapter Four, presents the commands 


associated with PROJECT's progress control feature. 





CHAPTER FOUR 


meee ee cee eae 6 Seo ee ee 


4.1 The PROJECT Command Structure 
4.2 Commands -- Input 
4.3 Commands -- Output 
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The Commands Associated with PROJECT's Progress Monitoring Feature 
' A basic part of any problem-oriented computer language is the com- 
mands which define the user=-subsystem interface. For this reason, it 
is of value to give a brief description of how command requests are 
handled by ICES PROJECT. The following steps effectively summarize this 


procedure: 


Step 1: User prepares and submits com- 
mand 
Step 2:3 The ICES Command Interpreter 


"reads" the command 

Step 3:3 On the basis of what was read 
by the Command Interpreter, 
certain programs are executed 

Step 4: Icetran programs compute re- 
quested results and output them to 
the user. 

Illustrated and discussed in this chapter are the commands which 
have been written for use with PROJECT's progress control feature. The 
purpose is to examine the capabilities of the commands so that the in- 
terested user may, if necessary, modify them to suit his own needs. 

4.1 The PROJECT Command Structure 

Before embarking on a discussion of the specific commands which 
constitute a part of the progress monitoring feature, it is worthwhile 
to make some general observations concerning the format of command com-~ 


position in ICES PROJECT. All PROJECT commands are composed of three 


paves: 





1) an operation name, = 
2) a data lable and 
3) an object phrase 
The operation name is the first word of any command; it indicates 
the general type of operation to be carried out. The data lable speci- 
fies whether the command applies to all project networks handled by 
PROJECT at a given time or to a particular project network. Finally, 
the object phrase, which may consist of one or more words and numbers, 
serves to specify more precisely the nature of the work to be done by 
a command. For a definitive discussion of the commands associated with 
the subsystem, the reader is referred to The Use of ICES PROJECT; the 
brief overview presented here should, however, provide the background 
Me essary for the ensuing examination of the commands specifically re- 
lated to the progress monitoring feature. 
The basic operation names used by PROJECT's monitoring feature are: 
. ASSIGN, PRINT, PLOT and REPORT. In the remaining portion of this chap- 
ter, the basic operation names are examined with a view towards build- 
ing useful commands for project control. 
4.2 Commands--INPUT 
It was indicated in Chapter Two that two classes of data must be 
provided in order to use PROJECT's progress monitor. The first type of 


information is the reported activity progress data. The command to be~ 


gin storage of this data is Command 1: 


= eS lle eee eee ee eee ee eee ee ee eee eee SP OC OT eee eee eee ee 
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Civil Engineering, Massachusetts Institute of Technology, Cambridge, 
Mass., 1967. 
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PROGRESS 

COST 
START 
FINISH 


REPORT ('projname') (AS OF) date* 


The cards which follow Command 1 are the activity progress data cards. 
The first number on each card must be the activity number (if an ac- 
tivity-on-node network) or numbers (if an activity-on-arrow network). 
As indicated above, Command 1 may take any of four forms depending upon 
which reporting option is desired. Designate option la to be PROGRESS, 
lb to be COST, lc to be START and ld to be FINISH. Consider command op- 
tion la: 
REPORT ('projname') PROGRESS (AS OF) date 

On the data cards, following the activity number may appear (in any or=- 
der) the word START followed by the start date, FINISH followed by a 
finish date and COST followed by an amount. The data may be input with- 
out using the modifiers START, FINISH and COST by preparing the data 
cards so that the order of information is activity number(s), start 
date, finish date and cost. When the "no modifier" input option is used, 
both a start and finish date must be specified; moreover, these dates 
must be calendar dates (e.g. 1 July 1967). With the "no modifier" in- 
put form, the cost data for a particular activity is optional and may be 
omitted. For the command option 1 with modifiers any non-repetitive 
combination of the words COST, START and FINISH is acceptable. Thus, 
the PROGRESS command may be used to store information on only start 
dates, only finish dates, finish dates and costs, etc. 

Progress reporting options lb, lc, and ld (corresponding to COST, 


START, and FINISH, respectively) constitute subsets of the PROGRESS 
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* See Appendix B 
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command in that they are used when data is reported on just costs, only 
start dates or just finish dates. For these options, too, the identi- 
fier (the word COST, START or FINISH) may be omitted. 

The last card in a series of data cards should have the word LAST 
punched on it. This insures that the ICES command interpreter will pass 
on to the subsequent command in the normal fashion. 

A significant point should be made regarding the reporting of pro- 
gress. There is no reason why estimates of activity finishes, starts or 
costs cannot be submitted. Assuming that such data is prepared with 
care, this practice will result in a more comprehensive comparison be- 
tween actual and planned work than would result if this procedure is not 
followed. 

The second class of input data referred to earlier consists of a 
Single number. It is the amount of time recoverable and was denoted by 
the symbol K in Chapter Two. Once the amount of time recoverable has 


been estimated, Command 2 is used to store it: 


ey 
> 


t : 1 : 
ASSIGN (‘projname') TIME (RECOVERABLE) bine 


where k represents the time recoverable in units of days or weeks, with 
days assumed if neither time unit is specified. Should the user neglect 
to assign it, fifteen percent of the job duration is automatically taken 
as the amount of time recoverable; a message indicating this is printed 
out. If, after the initial assignment of time recoverable, it is de- 
sirable to modify this estimate, Command 2 should be employed again. 
4.3  Commands--Output 

PROJECT's progress control feature provides several very useful 
output features. All of them stem from two basic operation names: 


PRINT and PLOT. 
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If the value of the status index or any of its components is de- 


sired for a single date, the appropriate option of Command 3 ought to 


be used: 
STATUS phased 
PRINT (‘projname') INDEX (FOR) ¢ TIME }$ (AS OF) date éselect 
COST list 


It was pointed out earlier that if the status index is requested, both 
of its components will be examined to see if they differ from unity by 
more than one-tenth; if there is an offending component, its value is 
printed. As is indicated in Command 3 and as was discussed in Chapter 
3, it is possible to request the status index or its components for a 
pre-defined phase or on the basis of some user-defined selection option. 
For more detail on these selection options, the reader is referred to 
Should the value of any project monitor be desired as it varies 


between two specified dates, Command 4 would be used: 


STATUS phase 
PRINT (‘projname’) INDEX (FOR)€ TIME /BETWEEN date 1 and date 23 gselect 
COST list 


If the interval between the first date and the second is less than 100 
workdays, increments are in steps of five workdays; if the interval is 
larger than 100 workdays, increments are tere of 10 workdays. 

Of great value in exantaiee both project and sub-network progress 


trends is a graphical display of the status index (or the requested com- 


ponent) versus time. Command 5 was developed just for this purpose: 


SLATUS phase \ 
PLOT (‘projname’) INDEX (FOR) @ TIME & BETWEEN date 1 and date 2{ Jselect 
COST list / 


The comments regarding the incremental stepping apply here as they did 
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for Command 4. Moreover, in both Commands 4 and 5 it makes no differ- 
ence whether the starting date is date 1 and the finish date is date 2 
or vice versa. A significant point regarding Commands 4 and 5 is that 
they permit the computation of a status index for any point in time 
which falls within the project's lifetime. Thus, the project manager 
may request a computation for some future time in order to get a pro- 
jection of project status if present progress trends continue. When- 
ever progress is reported using any of the options associated with Com- 
mand 1, the date which is a part of the REPORT command is stored. Any 
computation which is requested for a date later than the date accompany~- 
ing the most recent REPORT command is considered to be a projected value. 
Commands 3 and 4 make no distinction between projected and actual com= 
putations; the PLOT command, however, prints actual values with a "*" 
and projected values with a "=", A final item of interest concerning 
the PLOT command is that it has been written with a linear fill-in fea- 
ture. The effect of this feature is to fill in the space between suc- 
cessive ordinates on a strictly linear basis. The linear fill-in does 
not distort the display in any fashion but serves to make trends indi= 
cated by the graph easier to spot. 

This chapter has provided some background on the structure of com- 
mands in PROJECT and has discussed the commands currently available for 
use with PROJECT's progress control capability. The next section, Chap- 
ter 5, presents a sample problem which illustrates how the progress con- 


trol capability may be used in practice. 
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A Sample Problem; The Southwest Plant 


All comments made thus far on PROJECT's progress control feature 
have been of either a developmental or theoretical character. The pur- 
pose of this chapter is to demonstrate how the progress control feature 
can be used on an actual project. 

5.1 The Project 

The task is to build a sewage disposal plant on a small island in 
Massachusetts Bay. Sewage will be piped from Boston to the disposal 
plant through an underwater pipeline. On the island, the sewage will 
pass through a mechanical pulverizer where the solids will be reduced 
to small particles; then the waste will be treated chemically prior to 
its being released into the sea. 

5.2 Transportation 

The contractor must provide transportation for all of his men, ma- 
terials and equipment to the island. The City of Boston has provided 
docking facilities on the mainland for the contractor's use. 

5.3 Major Items of Construction 
The SW PLAT project has the following major components: 


1. An underwater pipeline must be laid from the island station 
to the Boston shore. 


2. Chemical treatment and pulverizing equipment must be ordered 
and installed. 


3. A steel frame superstructure, in which the pulverizer and 
chemical treatment units will be mounted, must be erected. 


4. A permanent boat landing and breakwater must be built as a 
part of the project. 


5. An electric generator must be ordered and installed on the 
island. 
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6. A small station house must be built to house the resident op- 
erating personnel, the system controls and the generator. 


5.4 The Network 

The SW PLANT project will be described by an activity~on-node 
network and will consist of the activities and events listed in figure 
5.1. Note that in addition to activity descriptions and durations, ex- 
timated activity costs are also provided for each activity. Figure 5.2 
shows the SW PLANT network; note the special arrow relationships. The 
project schedule is given in figure 5.3. 

5.5 Monitoring SW PLANT PROGRESS 

The project manager has determined that the SW PLANT project could 
be completed in 32 work days instead of the alloted 38 if a maximum ef- 
fort were made. Thus, the time recoverable for this project is six 
days; this information is stored using the command 

ASSIGN ‘SW PLANT' TIME RECOVERABLE 6 DAYS 
as indicated in figure 5.4. 

Owing to a special concern with activities related to piping and 
those activities concerned with the procurement and installation of the 
generator and chemical treatment equipment, the project manager has, at 
the outset, defined two phases as indicated in figure 5.4. 

Progress in first reported on activities in the sample network on 
11 January 1967. Since work started on 2 January, seven working days 
have elapsed. The data following the REPORT command in figure 5.4 il- 
lustrates three ways in which progress can validly be reported. The 
data for activity 210 shows the "no modifier™ option; activity's 310 
data illustrates how dates relative to the project start can be used in 


the command; finally, the data for activity 410 illustrates that when 
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NOOE NO. 
100 
200 
300 
400 
500 
600 
700 


1000 


"SW PLANT" NETWORK 


DESCRIPTION 
"START PROJECT 
*SPEC LAL LTEMS PROCUREO! 
"TRANSPORTATION ARR ANGEO! 
*TSLAND LANDING COMPLETEO! 
"CONSTRUCTION COMPLETEQ!® 
"TESTING BEGINS! 
"UNDERWATER PLPELLNE LALO’ 


Y PLANT COMPEETED* 


ACTIVITIES 


NODE NO. 
110 
210 
220 
250 
310 
339 
340 
410 
420 
450 
440 
470 
519 
529 
539 
549 
6L9 
520 


6 30 


NESCRIPTLON 

"GET PLPE-LAYLNG EQUIP. & LAY PLPE! 
‘TRANSPORT GENERATOR! 

"TRANSPORT CHEM. TREATMENT EQUIPMENT! 
"INSTALL CHEM. TREATMENT EQUIP.? 
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"PUT LN CRANES 

"PUT IN BREAKWATER? 

"CLEAR BLDG. SLTE & PLACE FNDS.! 
‘TRANSPORT CONSTRUCTLON EQUIPMENT? 
"PUT UP STATION HOUSE? 

"ERECT SUPERSTQUCTURE® 

PROUGH LN PIPING! 

MAKE FINAL PIPING CONNECTIONS! 
TINSTALL VALVES AND GAUGES? 

‘MARE FINAL ELFCTPICAL CONN.! 

"PUY IN wl Tie 

"TEST ELFCT@ ICAL SYSTEM! 

"TEST PULVESIZER® 

'TEST CHEYICAL FOUTPMENT! 


SITE PIPet INE SSL AND SPAT TON: 


Ficuremonrt 


ACTIVITY 


QURATION 


27 


1 


20 


10 


ESTIMATED 


OOLLAR COST 


cOST 
cOsT 
COST 
cost 
Cast 
COST 
cOsT 
COST 
€ost 
COST 
cOST 
COST 
cost 
COST 
cost 
Cost 
COST 
cost 
COST 
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22000 
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80000 

25000 
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1000 

19000 
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1000 
2000 
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ASSIGN *SW PLANT® START 1 JANUARY 1967 


PROJECT SW PLANT HAS BEEN, ASSIGNED TO START ON DAY 1 JAN 1967 
PRINT *SW PLANT® SCHEDULE 
EHKKKEKRER ARE REKRRAS KEKE SEEKERS KES 
* SCHEDULE FOR PROJECTIONS PEanT* * 
EFLEKE RISE AKERRESK EEK REKKRAERRREKTE 
PROJECT OURATION IS 38 WORK OAYS, WORK WEEK IS 5 OAYS 
WORK IS SCHERULEO> TO START ON 2° SAN 1967 -°AND IO BE COMPLETED ONG2Z2 5 FES aig o7. 


THE PROJECT *SwW PLANT*® NETWORK HAS 
20 ACTIVITIES 
8 MILESTONE EVENTS 


NO HOLIDAYS FOUNO IN SW PLANT HOLIDAY TABLE. 


EVENT SCHEOULE 
SERKEKESERKK SKS 


EVENT OE€SCRIPTION EARLY TIME LATE TIME 

[ 109 START PROJECT 2 JAN 1967 2 JAN 1967 
1 1 

200 SPECIAL ITEMS PROCURED 2 JAN 1967 14 FEB 1967 
1 32 

c 300 TRANSPORTATION AR@ANGED 2 JAN 1967 2 JAN 1967 
l 1 

c 400 ISLAND LANDING COMPLETED 5 JAN 1967 5 JAN 1967 
4 4 

500 CONSTRUCTICN COMPLETED 16 FEB 1967 20 FEB 1967 
34 36 

C 590 TESTING YEGINS 21 FER 1967 21 FEB 1967 
a7) 37 

700 UNJERWATER PIPELINE LAID 8 FEB 1967 20 FEB 1967 
28 36 

c 1000 PLANT CO 4PLFTEO 22 FEB 1967 22 FEB 1967 
38 38 


END OF EVENT SCHEDULE 
RREKTERTE KEKE ERTEESE 


Figure ome 
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modifiers are used, the data may come in any order. 

In an effort to get a picture of project status in the near fu- 
ture--day 10--the project manager has used another command found in 
BOUT ee D6 4. 

PRINT INDEX FOR STATUS AS OF DAY 10 
The requested (projected) value of the status index is 0.77; the work 
progress component is 0.779 and hence, it is also printed. Notice that 
because it was available from a previous command, the project name could 
be omitted from the foregoing command, . 

Also found in figure 5.4 are the commands 
PRINT INDEX FOR TIME AS OF DAY 10 and 
PRINT INDEX FOR COST AS OF DAY 10. 

These commands serve to illustrate that either component of the Senne 
index may be requested. 

Figure 5.5 is a glimpse into the future of the SW PLANT project. 
By using the PLOT command and specifying the range of interest to be 
the first thirty days of the project, the project manager can see at a 
glance that if present trends continue, he will find himself in an une= 
Eenable position. 

Shifting his attention from the project as a whole, the project 
manager next requests the status index as of day 10 for the sub-network 
called PHASE 1; this command is illustrated in figure 5.6 as is the re- 
quest to 

PLOT INDEX FOR STATUS BETWEEN DAY 1 AND DAY 30 PHASE 1 
An interesting point can be noted here. Apparently workday 1 does not 
occur during the execution of the activities in the sub-network PHASE l. 


This is indeed the case as the project schedule shows; thus, since the 





ASSIGN "SW PLANT*® TIME RECOVERABLE 6 DAYS. 


THE ESTIMATE OF TIME RECOVERABLE FOR PROJECT SW PLANT [IS 6 DAYS. 


ASSIGN *SW PLANT*® PHASE 1 210 220 250 LAST 


PHASE 1 OF PROJECT *SW PLANT® HAS BEEN ASSIGNEO THE FOLLOWING ACTIVITIES, 
210 TRANSPORT GENERATOR 
220 TRANSPORT CHEM. TREATMENT EQUIPMENT 
ZOO INSTALL CHEM. TREATMENT EQUIP. 


ASSIGN *SW PLANT® PHASE 2 470 510 520 I10 710 LAST 


PHASE 2 OF PROJECT "SW PLANT® HAS 3EEN ASSIGNED THE FOLLOWING ACTIVITIES, 
470 ROUGH IN PIPING 
510 MAKE FINAL PIPING CONNECTIONS 
520 INSTALL VALVES AND GAUGES 
119 GET PIPE-LAYING EQUIP. & LAY PIPE 
710 TLE OLPELINE TO ISLAND STATION 


REPORT PROGRESS AS QF LL JAN 1967 


SeeclO & JAN 1967 9 JAN 1967 2000. 
NO “4ODTFIERS. ASSUMED TNPUT ORDER TO BE START, FINISH, COST (OPTIONAL). 


Bree StTSRT Lf FINISH 3 CNST 17009. 
Peweoi? FINISH 20 JAN 1967 START S JAN 1967 COST 27000. 
LAST 
Pee INCEX FOR STATUS AS OF AY 10 
e*ee¢ THE VALUE OF THE STATUS INDEX IS 0.77 FOR DAY 10 
ee=F° NUTE == VALITE OF WORK PRUGPESS GORPONENT IS. O. 779 @*aF 


Beer LWOEX FOR TIME AS OF DAY 10 
e#eese¢ THE VALUE CF THE WORK PROGRESS COMPONENT 1S 90.78 FOR DAY 
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PRINT INDEX FOR STATUS AS OF DAY 1D PHASE 1 
#se¢ THE VALUE OF THE STATUS INDEX £5 0.894 FOR DAY 1D *ee8 
eees8 NOTE -- VALUE DF CUST COMPONENT £S 0.833 #888 
PLOT LNOEX FOR STATUS BETWEEN DAY 1 AND DAY 30 PHASE 1 
INDEX DATA WILL AE PRESENTEN IN § DAY LNCREMENTS. 


WORKDAY 1 ONES NIP OCCUR DURING THE EXECUTLON OF THIS SUBSET OF ACTIVITIES. LVF 1S NOT VALID. 
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sub-network has not started, its status index value is unity by defini- 
tion. This is indicated on the plot in figure 5.6. 

On the twentieth day of the project progress is reported as shown 
in figure 5.7. One new command is introduced here; it is 

PRINT INDEX FOR STATUS BETWEEN DAY 1 AND DAY 20. 
Based on incremental steps of five working days, the index is computed 
and printed in the same fashion as when it is requested for a single 
date, Notice that the values reported for the status index in figure 
5.7 start at day 1 with a lower value than was recorded on the basis of 
the progress reported on 11 January 1967.(c.f. figure 5.4). The reason 
for this is that the values recorded in figure 5.7 are based on differ- 
ent progress data than is the index value found in figure 5.4, 

Figure 5.8 shows what progress was reported for the project on day 
35. Again, the status index is printed for an interval between two 
specified dates. The projected and actual index values for day 20 which 
were displayed in figure 5.7 showed the SW PLANT project to be in an un= 
favorable situation with respect to progress. This information was used 
to good advantage by the project manager; evidence of this is given by 
the near-unity status index values--see figure 5.8--which indicate that 
the project is behaving as planned. The plot of index values over the 
same period (found in figure 5.9) makes the same indication. 

Again, the project manager's attention shifts to the important sub- 
networks. The plot of the status index for PHASE 2, figure 5.10, shows 
this subset of activities to be performing quite well. Figure 5.11 is 
a plot of the status index for PHASE ]; PHASE 1 seems to have a status 


index which is constant at a value of 0.84. This is a relatively low 
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#e** THE VALUE OF THE STATUS INDEX 
#e#% NOTE -- VALUE OF WORK PROGRESS COMPONENT IS 0.653 
PRINT INDEX FOR STATUS BETWEEN DAY 1 AND DAY 20 
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##*% THE VALUE OF THE STATUS INDEX 
*#*% NITE -- VALUE OF WORK PROGRESS COMPONENT IS 0.834 
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*eee THE VALUE OF THE STATUS INDEX 
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PLOF INQEX FOR STAFUS BETWEEN 1 AND 35 


INNEX DATA WILL BE PRESENTED IN 5 DAY INCREMENTS. 
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value considering that only three days remain in the project's lifetime. 
It would certainly behoove the project manager to investigate this the 
activities comprising PHASE 1 very carefully. 

The final area of interest to the project manager consists of all 
network activities with node numbers greater than or equal to 510; this 
imcludes activities 510, 520, 530, 540, 610, 620, 630 .and 7107 eine 
value of 1.01 for the status index (printed below the graph in figure 
5.11) indicates that this user-defined subset of activities is on sched= 
ule. 

5.6 Summary 

In this chapter, every working command of PROJECT's progress con- 
trol feature has been demonstrated on an actual project. It has been 
shown how the status index and its ppelch amet may be useful as indica= 


tors of problem areas within the project. 
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Extensions and Comments 


The aim of this chapter is to draw together the several facets of 
PROJECT's progress control feature. This will be done by first discus- 
sing some extensions of the capability and then by making some observa-~- 
tions of a general nature. 

6.1 Extensions 

Calculation of the work progress measure for any sub-network re= 
quires that the forward flowing procedure be twice applied: once to 
determine the planned sub-network duration and the second time to cale 
culate the latest revised estimate of the sub=-network duration. Each 
time the forward flowing takes place, a check is made to ascertain if 
any special arrow relationships (that is, any arrow relationships which 
are other than finishe-start) are present in the network, Thus, this 
check is made twice whenever the status index (or the work progress 
measure) is requested--a time consuming procedure. A worthwhile exten- 
sion would be to improve the efficiency of the progress monitoring ca- 
pability by eliminating the redundant check. 

In Chapter Two, a situation was described when the existing pro- 
ject schedule ceases to be viable. This can occur when the project will 
take longer to complete than was originally planned. Under such cirecum- 
stances, it would be of great value to have the reported activity pro- 
gress data replace the original activity data. The reported progress 
information would then serve as the basis for calcuJating a revised pro- 
ject schedule. The implementation of this self-mnodifying capability 
would constitute a second valuable extension to PROJECT's progress con- 


trol feature, 
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6.2 Some Concluding Remarks 

It should be clear from the discussion in previous chapters that 
the computation of the status index is highly dependent on the activity 
progress data reported from the project site. Because of this dependence, 
the significance attachable to the index is bounded from above by how com~ 
plete, up-to-date and accurate the reported activity progress data is. 

The great amount of highly detailed cost and work progress data 
available to the project manager is clear evidence that much thought and 
effort has been expended in the area of project progress control. Per=- 
haps because such a volume of information was available for the project 
manager, not many people seem to have considered the wisdom and, in 
fact, necessity of compacting the reams of progress data into a more ten- 
able form--a form useful for pointing out those areas of the project re~ 
quiring a deeper investigation. Among those who did recognize the value 
of this course of action was J. S. Baumgartner whose text PROJECT MANAGE= 
MENT? provided the motivation for this work. 

The paramount consideration in the development and implementation 
of the progress monitor has been to keep it simple--so the project man- 
ager can grasp it at a glance--yet meaningful. When, in the development 
of a feature like PROJECT's progress control capability, the emphasis is 
placed on simplicity and ease of understanding, sophistication must be 
sacrificed to a certain extent. The final point to be made, then, is 


ee ee ee ee ee ee ee oo ee ee ee 


3control and Management of Capital Projects, J. W. Hackney, John Wiley 
& Sons, Inc., New Vores 1965002 .mor 
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that the status index should not be thought of as a panacea which will 
prevent a project from going awry. Rather, it is but an indicator and 


should never be a substitute for good judgment. 
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APPENDIX A 


Appendix A consists of the programs which were written to implement 
PROJECT's progress control capability. The programs can be classified 
in two groups: (1) ICETRAN programs for computation and (2) programs 
written in the Command Definition Language, which serve to interpret the 
commands which the user submits. 

The ICETRAN programs are grouped according to their respective load 


modules as follow: 


Load Module PROGFL Load Module PROGST Load Module PROGTR 
PROGFL PROGST PROGTR 
PROGOL PRPORK PRGRAF 
PROGIX PRKDAT™ PRS85 
PROGND PRLOGX* PROGDJ 
PRSAVE 
PROGET 


ear Ss 2 "F == = Swe se OF SSS eS Ge es EOS OE STU eee Ul Pl EE SE UCC eel eel eet lc eller eee es eee st lC et ee eee ee 


*The listing of this program is not included here since it is common to 
the entire PROJECT system and was not written specifically for the prog= 
ress control feature, 
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SUBROUTINE PROGTR 
COMMON MODE, NUNACT,»NOACT,NUMAR, I CODE, IFLOWs DATEYs DATED, DATEY,ONUN 
COMMON NDHOL, JOBDUR, Ap Be CoM Eo Fy Got y Kl ep K20K3 KG eK5 KS yLINE(29) 
COMMON NAME, NAME], NAME2,NAME 3, NAMES, NAME5,A3(12) s4AME,OBXXX( 5D) 
COMMON TABLE,HOLO, FALPHA(16),4ONTH(12) ,ILXXXC 2D) gE NTXXXI20) 
COMMON NARROW P), INCDJE LP), INGZTOLP) »KTIME(P),TOTIME(P), TONET(P) 
COMMON SORT(P),JSORTIP) »<HOLO(P),4DUN(P) »,MARROALIP), TCAL(P),THOL(P) 
DYNAMIC ARRAY NARROW, INTODE,INGRIDKTINE, LITINEs IONET,SORT(D), 
LJSORT »KHOLO» MDUM, MARROW, ICAL, THOL 
OOUBLE PRECISION NAMENAMEL,NAME2,NAME3, NAMES, NAMES, BLANK, MAME 
OOUBLE PRECISION LALPHA, FMONTH,OS3XXX 
FQUIVALENCE CINTXXXOE1L7),1TIMRC) 
1F(K3)100,90,100 
ENTER HERE IF USFR HAS SPECIFIED TIME RECOVERABLE DATA. 
100 ITF(K5-2)1,2,3 

3 WRITE(6,4) NAME 

4 FORMAT(//,1X%,*RESUBMIT TIME RECOVERABLE OATA FOR PROYVECT °,AB,’%. 
ILAST WORD OF COMMAND MUST BE DAYS , WEEKS OR LEFT BLANK.) 
ERROR RETURN 
TIME RECOVERABLE INPUT AS WEEKS -- CONVERT TO DAYS. 

2 LTIMRC=DNUMEK3 

10 WRITE(6,5) NAME, TTIM[C 

S FORMAT(//,1X,*°THE ESTIMATE OF TIME RECOVERAILE FOR PROVJETT *,A8,” 
LIS %,85,5* DAYS.'%9/) 


RETURN 
TIME RECOVERABLE INPUT AS DAYS -- NO CONVERSION NEEDED. 
lL ITIMRC=K3 
GO TO 10 
ENTER HERE IF USER HASN'T SPECIFIED TIME RECIVERA3LE NATA -- ASSJME TIME 


RECOVERABLE TO BE FIFTEEN PERCENT JF THE JOB DURATION. 
90 ITIMRC=((.15) *JOBDUR+#.5) 

RETURN 

€ND 
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SUBROUTINE PRGRAF 

PRGRAF PRINTS OUT COST & RESOURCE CURVES 

INPUT DATA IS IN NARROW, K5, RLXXX, INTXXX, & AB 

CIMMON MOOE »yNUMACTyNOACT,NUMAR, ICODEs IFLOW, DATE, DATED s DATEY » JNUM 
CIMMON NOHOL» JOROUR, Ay Bole Dy Ey Fo GyHo Xl 9X 29K39KS9K5 9 KO LINE (290) 
COMMON NAME,NAMEL,NAME2,NAME3 y NAMES yNAME5y ASE 12) » MAME pDSXXX( 50) 
COMMON TARLE,HOLD, TALPHA( 16) »MONTHE 12) pQLXXX020) p ENTXXX(20) 
COMMON NAQROW(P),INCODELP), INGITOUP) »KTIME(P), TOTIME(P), IONFTUP) 
COMMON SORTEP), ISIRT (9), KHOLDEP) »MDUMOP) »MARROA( PI, TCALCP), THILUP) 
DYNAMIC ARRAY NARROW, INCODE,INGRID,XTIME,T ITI ME, LONE T, SORTIO)» 
1JSORT»KHOLD», MDUMy MARROW, ICAL, THOL 

OIMENSTON PT(102),JOLD¢11) 

ODOURLE PRECISION NAME,NAMEL »NAME2,NAME3y NAMES» NAMES» BLANK» MAME 
NIUSLF PRECISION TALPHA,FMONTH, OBXXX 

TL=LINECL) 

T2=LINE(2) 

13=LINE(3) 

14=LINE(4) 

IS=LINE(5) 

KS=LINE(6) 

RI=12-11 

R2=13-11 

RRR=R1/R2 

12=100#RQR 

ROUTINE TD REJECT *Y’ VALUES SUTSIDF THE RANGE O. TO 2.0 

D0 3 1T=1,«5 

TFC NARROW(T)-20000)151,2 

IF (NARROWLI)) 25 393 

OUTSIDE THE RANGE, PRINT ERROR MESSAGE 

IDAY=I1-1¢1 

STZF=NARQIW(1)/19000. 

TE CNARROW(1) 14,555 

NARROW(1)=0 

Goriors 

NARROW(1)=20000 

CONT INUF 


SCALE ACL *Y* VALUES 
Y=.0025 

NN 13 T=iyk5 
NAQSROW(TI=AVY*ENARROWCT)+.5 
J5=«*5 


PNUTINF TD MAKE A LINEAR FILL-IN ITF FEWER THAN 100 POINTS INPUT 
IF (100~K5)14,70,79 

NEFINE MARROW, LOL »HALF »LOW 

J1=0 

ON 71 T=1,1090 

MARROWCT)=9 





49 
50 
51 


53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
Tt 
72 
73 
74 
75 
76 
TT 
73 
79 
80 
8} 
R2 
83 
BY 
85 
Bb 
aT 
BA 
89 
90 
91 
92 
93 
94 
95 
96 


73 


74 
75 


76 


= Gabacns 


17 


20 
25 


26 
30 
31 


a0 
36 


41 
50 


18 
19 


40 


OTS tala ks 

Pi=(T 1221007 1(K5=-1)4 1.5 

MARROW(TT)=NARROW(T) 

TECIU) 755.755 12 

SCALE VALUFS IN MARROW BETWEEN THIS AND PREVIOUS POINT 
IX=JI+1 

JX=019-1 

FE CIX=UX) 755754 73 

LEN=JX-IX+1] 

O09 74 J=l,LEN 

K=TX+J-1 

MARROW (K)= (MARROW( TT Y-MARROW( SLT) FSIS CTI-JST + MAQROW( ST) +25 
JT=T! 

DESTROY NARROW 

OFFINE NARROW,101,HALF,LOA 

DO 76 1T=1,100 

NARROW(T)=MARROW(T) 

NESTROY MARROW 

K5=100 


LOOP TO PRINT OUT SUCCESSIVE LINES 

no 50 KK=1,50 

NO 17 f=1,100 

PT(T)=" ° 

O00 30 1=1,K5 

Tl=( 1-1) ¥*100/(K5-1)41.5 

IF (1O00-11)18,19,19 

11=100 

CONTINUF 

T= (SI-KK-NARROW(1T)) 309 20% 30 
IFC TI-12)25,25,26 

PT(I 1) =" 

GN TQ 30 

PTC(IT)="-? 

CONTINUE 

Z=(51-KK)/5. 

[Z=2 

IF (7-12)35549, 35 
WRITE(6,36) (PTC I) ,T=1,100) 

PORMAT( LOX, = slO0AL) 

GH TO 50 

W=(S5I-KKI/0OY*10000.) 
WRITE(624L WeCPTCT) »f=1,1900) 

FORMAT(IX,F 9.22% + 10 DAL) 

CONTINUE 

CALL PRS85011_I55913) 

RETURN 

END 
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SUBROUTINE PRS85(11,55,13) 
THIS PRINTS OUT STATUS-GRAPH INDICES 
DIMENSION PT(103),JOLD(10) 
00O 1 T=1,100 

PT(P)=*.’ 

NN 6 T=1,J55 
IT=€I-1)*100/(5J5-1)4+1.5 
IF(100-11)60761,61 

Ir1=100 

PEA OO=J5) 25 363 

XJ=11/10. 

GO TO 4 

Pet 5—33732,391 531 

IF (J5-10) 33,33, 34 

XJ=! 

GO TO 4 

XJ=1/3 

GO T0 4 

XJ=I1/10. 

JX=XJ 

IF (XJ-JX%)56,5,6 

PT(TIT)="%+! 

CONTINUE 
WRITE(6,63)0PT( JS) -e J=1,109) 
FORMAT(6X%,°0.0 *°,100Al1) 


NOW, FIND WHERE "+" WAS PRINTED ON THE ABOVE LINE 
N=0 

XX="4? 

NAN B 1=1,100 

IF OXX-PT(1)18,7,3 

N=N¢l1 

JOLD(N) =1 

CONTINUE 

OO "So l= igh O72 

PLE Y=*. % 

COMPUTE THE NEAREST INTEGER VALUE (FOR THESE ooiNgs 
IF (N)90,90,101 

AND=(I3=1L)7 (N=) 

NF 320 T=1,N 

JHOLN=T1+ 09-1) *AN9+.5 

J3=JHOLD/100 

TFL JST 1, 1250! 

K=JOLO(T)-1 

KK=1 

BV TO 6219226230240 25 e267 728429), SB 
J2=JHILD/10-10%J53 

K=JOLNOCT) 

KK=? 
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[F(3J2)14,13,14 

LEtI3 1204.1 54.20 

GO TO 719225235 24425,26527,28529),52 
JL=JHOLD-10*452-1900* 593 

KK=3 

K=JOLD(T) +1 

TF(I1L)16,151,16 

LE (27270 5152520 

TF (53)20,30,20 

GO TO (21422523 424975426 ,27,28,79),J51 
PT(K)="O? 

GO TO (12,415,730) ,KK 

PT(K)="L° 

GO TN €12¢154530) »KK 

PT(K)="%2° 

GO TO (12415530) KK 

PTCK)='3° 

GO TO (12915930) ,KK 

PT(K)=*4? 

GO TO €12915930) KK 

PTUCK)=*5* 

GO TO (12415330) KK 

PTUK}="6” 

GN TO €12915,30) »KK 

PT(K)=*7°8 

GO TO (124154730) eKK 

PT(K)="8° 

GO TO (12,15%730),KK 

PT(K)=*9* 

GA TO €124159390)4KK 

CONTINUE ’ 
WPITE(6,40) 0PT( 5), J5=1,1027) 
FORMAT(9X,1LO2A1,° DAYS!) 

RETURN 

WRITECAGH,9°1)N 

FORYAT(/5X%,* FERROQS IN INDEXING, N = *°*,12) 
RETURN 

END 
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SUBROUTINE PROGDY 

COMMON MOOE,NUMACT,NOACTsNUMAR,ICIDE, IFLOW, DATEM, DATED, DATEY ,PNUM 
COMMON NOHOL,JOSDUR,A.B,CoDsb pF eGets Kl akon steko ek os KOpLINEI co) 
COMMON NAMF,NAME Ly NAME? yNAME3,NAMEG, NAME 5, A3( 12) 9 MAME» DSXXX(59) 
COMMON TABLE,HOLN, TALPHA(16),4ONTH(L2) pRLXXX{ 20), 1 NTXXX(20) 

COMMON NARROW(P),INCOJE(P),INGRIDN(P) »KTIME(P) »IDTIMELP), IONET(P) 
COMMON SORT(P),ISIRTIP) + KHOLDIP) »MOUMLP) »MARROW(P),ICAL(P),THOL(P) 
DYNAMIC ARRAY NARROW, INCODE,INGQIO, KTIME, LT ITIME, TONET,SORT(D)» 
LJSTRT,KHILD,MOUM, MARROW, ICAL, IHOL 

NYNAMIC ARRAY KPRNG 

MOUBLE PRECISION NAME,NAMEL,NAME2,NAME3,NAMEG, NAMES, BLANK, MAME 
OSUBLE PRECISION TALPHA,FMONTHsD9XXX 

FQUIVALENCE {KPROG(1),OBXXX(22)) 

THIS SUBROUTINE IS EXECUTED FROM THE COL SELINX. ITS PURPOSE IS 1) 
DESTROY THE ARRAY JSORT AFTER ALL COMPUTATIINS HAVE BEEN MANE. 
NESTROY YSORT 

DESTPOY KPROG 

RETURN 

ENO 
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SUBROUTINE PROGST 


COMMON 
COMMON 
COMYON 
COMMON 
CN4MON 
COMMON 


MODE »NUMACT,NOACT,NUMAR, ICODE s LFLOW,DATEM, DATED» DATE Ys ONUM 
NOHOL » JOBDUR gp Ae BpCe Dv Ee Fe GeHo Kl pK2eK3 KG ep KS oe KSeLINE( 20) 
NAME, NAMEL »NAME2,NAME 35 NAME 4 NAMES A3(12) 5 4AMF,OBXXX(5D) 
TASLE s HOLD, LALOPHA( 16) sMONTHO 12) ¢2LXXX( 20) ,INTXXX(20) 
NARROW(P) sINCODE(P), INGRID(P) -KTIME(P), LOTIME(P), LONET(P) 
SORTCP)»,ISIRT(P) KHOLDOP) sYOUM(P) »MAQRROW(P) »LCAL(P),THOL(P) 


DYNAMIC ARRAY NARROW, INCONE, INGRIO,KTIME, INTIME, LONET,SORT(D), 
LJSIRT»KHOLO», MOUM, MARROW, ICAL, IHOL 


NOURLE 
DOUBLE 
NNUBLE 


DYNAMIC 


PRECISION NAME,NAMEL »sNAME2,NAME3, NAMES» NAME 5» BLANK » MAME 
PRECISION [TALPHA,FMONTH, DSXXxXx 
PRECISION NAMES 

ARRAY [NPRNG 


FOUITVALENCE (DSXXX(9),NAMF8) 
FQUIVALENCE CINTXXX(15),12) 
EQUIVALENCE CINTXXX(10),¢PROG) 
NAMER=NAME 

CALL AONNUM(NAMESB,®) 


GO TO 
SEE AF 


(10,20,30,49,50,60,70),KI 


NAMFSR EXISTS. IF YES, PULL [OPROGS. 


LEN=4*NOACT 
OLSK FILE INFOC2,NAMESB,ITFSTAT, IH, IL) 
GUTH ClLs Lael Siete StAt 


CREATE 


THE PILE -1F- NONE EXISTS EOR THIS = eROJECt. 


NO 12 [=1,-19 

LINECI)=0 

DISK OPFN(2,NAME8,1) 

{ti 1S THE IDENTIFIER OF RECORO ONE OF NAMES, 


[H=D 


NISK PUTO? NAMEB,THeLINE CL) 91540) 
ZERQ IN RECORD GF INPROG’S. 
DESTROY ITNPROG 


DEF INE 


1LO°R9NG,NOACT, FULL »LOW 


Il 1S TOENTIFTER DFVOF IOPROG SES IR. 


I1=0 


OCSK PUTC2,sNAMEB,IIT,IOPROG(I),1L»LEN) 

STNRE L[DENTIFIER OF INPRNG RICOAD IN LST WORN NF LST RECORN OF NAMES. 
LINE(LI=TI 

NISK PUTOC2ZNAMER,THeLINE CLI 91.4) 

GN TN 14 

FILE ANFES EXIST FOR THIS PROJECT. 

DTS¥ DPENC2,NAMER,T) 

NOSK GETOC2,CHeLINECL 200%, JUNK NEXT) 

PE=Liveti} 


NF FINE 


(NPRIG,NOACT,FULL,LOW 


NISK GFTOA,C LT, INPROG IL) 29,05 JUNK eNEXT) 
AMER EX(STS,. STORE OATH SP REPORT IN THE SWaAtesS WERO. 


(PPNG=0 


PUT THE ACTC(VITY NUMBERS IN A LIST. 





Se 
Se 


Ann 


Oona 


SoU Gad) Gard Gad) Gud 


ma O 


KI=1 
CALL RETRVE 
RETURN 
RARE EERE EAR ERAAAAA AEE AER ERA A EERE EERE ERASER EKER ER EA EAE EEE 
ENTFR HERE WITH AN ACTIVITY REPORTING PROGRESS. 
PROGRESS DATA ON COSTS GOFS IN LST WORD OF NAMES, FINISH INFO GOES 
SECONO WORD, REPORTED START DATA GOES IN W920 3 OF NAMES. 
20 TA=A 
I3=B 
CALL PRLOGX TS SEARCH THE LIST FOR THE ACTIVITY WE SEEK. 
CALL PRLOGX(1A,1IB,K3eINGRIO,NOACT) 
IF K3 IS POSITIVE>s K3 REPRESENTS [7S POISTITIION IN THE EISh. IF IT 
IS NEGATIVE, THE ACTIVITY IS NOT IN A PART JF THE NETWORK. IN THE 
SECOND CASE, PRINT AN ERROR MESSAGE. 
IF (K3)21¢21922 
21 TF(MODE) 27927, 24 
27 WRITFE(6,28) IA 
2B FORMAT(//91X%e*PROGRESS OATA ON ACTIVITY *,14," IS NOT ACCEPTED SIN 
2CE THIS ACTIVITY IS NOT A PART OF THE NETWORK. »/) 
RFTURN 
24 WRITE(6229) ITA,IB 
29 FORMAT(/S/ 1X e*ACTIVITY "214° - %,14,* IS NIT A PART OF THE NETWOR 
2Ke PROGRESS OATA FOR THIS ACTIVITY IS NOT ACCEPTED.' -/) 
RETURN 
22 TFCTOPRNG(K3)) 200,200,201 
IDPROG POSITIVE IMPLIES SOME OATA HAS ALREADY BEEN REPORTED. 
201 OISK GET(2,TOPROG(K3I) AL INEC(LI1,12) 
GCN TO 204 
200 NO 23 J=1,9 
23 LINE(J)=0 
294 RETURN 
SEKSSSEKERERSEKARESSEARAEKEEEESAESEHREAREEREKEESEARSEAREREEKSE SEE RAAESSKEARKERKRS ASSES 
STORF REPORTFD FINISH OATE. 
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IN 


IF REPORT OATF [S AFTER A REPORTFD FINISH DATE (INOICATING THAT AN ACT. 
IS» IN FACT, FINISHED) ,»STORE THE OATE AS RFPOARTED. TO INDICATE AN EST. 
FINISH OATE (1.f.y FINISH OATFE IS LATER THAN THE REPORT SATE) SIDE 4c 


NEGATIVE OF THE DATE REPORTED. 
30 TFC TPROG-0)35, 31,31 
31 LINE(2)=0 
GO TO 36 
35 LINF(2)=-/) 
46 CONTINUF 
RFTURN 
ESSTCRERSSHSSAREASS SESSA HEE TEAEERRRESER EEE EEEKESAS KSEE RE KARE 
STORE REPORTED START OATE. 
40 LIn&(3)=9 
RETURN 
ETRE SHSAEREEE TEES EAAEAEKEKECAKES EKSTRA ESSER ERE EEEEEER ERE AEE 
STAPE REPOSTED COST INFORMATION. 
SOV) ve (1) 2G 
RETURN 
SHRTSCEAETARAEA SASHES HACE SAS ESKETAAESS SER ESHEAEA ETE TEEEREREKEREEEESE 
659 IF C12-))37-.83,37 
VS LECLINE CSIR, 37s 8I 
S31 TFC TASS(LINE(2)))30,37,90 





102 
193 
104 
LOS 
106 


LOW 
198 
109 


110 
L1ll 


L12 
i 
114 
115 
6 
117 
118 
Oe. 
120 
121 
122 
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SO TF(CINE(3)—-ITABSC(LINE( 2) ))37457,33 
SEE ITE FINISH 1S SMALLER THANTIHE Sister 
438 IFCMODE) 381, 381, 382 
331 WRITE(65 353) TAGLINE CA) EINECZ) 


383 FORMAT(/,1Xe*ACTIVITY *,15,* REPOATS START JIN DAY °,15,* FINISH ON 
1 DAY ',15) 
GO TO 390 

382 WRITE(6,324) IA,I2,LINE(2),LINE( 3) 

3RG FIRMAT(/,1X,*°ACTIVITY °,14,' = ",514,° REPORTS STAST GN DAYe vl ow 
LEINISH ON DAY *,75) 

390 WeITE(6,3921) 


3OLT FIRMATCLX, *#*#FERRIR -- FINISH CANNOT OCCU2 REFORE START. ALL STAR 
IT AND FINISH DATA FOR THIS ACTIVITY HAVE BEEN ZERDED.” ) 
LINEF(2)=0 
LINE(3)=90 
37 NISK PUT(2~NAME8B,INPRIG(K3) LINECL)- 1,36) 
RETURN 


SEEKER KERR EERERA EERE REEE REE REE RES EKER KERAEK KER RAREREKRER KER ES 
70 DISK ODPENC2,NAMER,1) 

NISK PUT(2,NAME8,II,10PROG(1),1,LEN) 

DISK CLOSE 12,NAMES) 

DESTROY ITOP20G 

RETURN 

Se 
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SUBROUTINE PRPORK 

PRWORK TAKES A OATE (M0,0¥,YR IN 4¢B,C) ANO PUTS WORK OAY INTO D 

THIS EDITION OF PRPORK MODIFIEO 27 JULY 67 BY J.T. 4ACOERMOTT TO OO ERRIR 
RETURNS IF ANY PART OF THE GIVEN JATE IS INVALID. THIS DONE SO AS TO 
INSURE PROPER EXECUTION OF SUBSEQUENT COMMANDS. 

COMMON MOOE,NUMACT »NOACT sNUMAR,ICODE, IFLOW,DATEM, OATEO,DATEY»DNUM 
COMMON NOHOL » JORDUR, AB CeOvE oF eGeHe Kb eK2eK3 Koo K5gKGeLINE(20) 

COMMON NAME, NAME »NAME2, NAME3, NAMEG, NAMES, A3(12),4AME»OBXXX{( 50) 
COMMON TABLE, HOLD, IALPHA(16),MONTH(12) ¢RLXXX(2D),1NTXXX(2D) 

COMMON NARROW(P),INCODE(P),INGRIO(P) sKTIME(P) ,IDTIMEC PP)», IDNET(P) 
COMMON SORTIP) ss ISORT(P) sKHOLDEP),MOUM(P) »MARROH(P),ITCALIP) »THOL EP) 
OYNAMIC ARRAY NARROW, INCODE,INGRIDsKFIME,TOTIME, IDNET,SORT(O), 


LISORT»KHOLO»s MOUM,MARROW, ICAL, ITHOL 


OOUSLE PRECISION NAME,NAMEL NAME 2_NAME3_ NAMES» NAMES» BLANK p MAME 
NOUBLE PRECISION TALPHA,FMONTH,DBXXX 

ONUBLE PRECISION MON 

SET *D*® = O IN CASE NJ VALIO WORK OAY CAN BE FOUNO CIF GIVEN OATF BAD) 
0=0 

HOLO EXISTING JOBNUR ASTOE IN CASE PSEUDO JIBOUR 1S USED TO GET CALENDAR 
MOBOUR=JOSOUR 

PUT A VALUE INTO JOBOUR IN CASE A CALENOAR YUST BE GENERATED 
JOBOUR=300 

SEE IF A STARTING OATE HAS BREEN ASSIGNED 

TFCOATEM) 510,510,515 

NO, PRINT FRROR MESSAGE 

WRITE (6,90D) 

GO TO 100 

INDATM=A 

INOATO=8 

INOATY=C 

SFE IF YEAR WAS GIVEN, AS IT MUST BE 

IFCINOATY) 300,300,505 

WRITE (42991) 

GQ TO 109 

SEE IF GIVEN OATE OCCURS REFORE PROJECT START 

IFC TOOID. © DATY #100. FOATEM*#DATEN-10090. €C-100.#A-B) 506,506+5D4 
J=DATED 

K=NDATEM 

L=DATFEY4#+1909 

MON=FMONTH(K) 

RLANK=FMONTHCINDATM) 

WARITE(6 29902) INOATD,SLANKyg INOATYs JeMONOL 

60 TO 10D 

NFESTROY ANY ICAL LEFT AROUND 

NESTROY ICAL 

YFS, GENERATE A CALENMDAR 

CALL DATE 

MATCH REPIRI DAY TO CALENDAR TO FIND CORRESOONDING JOB OAY 
MATCH THE YE 42 





99 


109 


525 


529 


530 


535 


538 


536 


S37 


sN0 


00 


990 


ant 


O92 


00 $20 T=1,JNBDUR 

[FC TCAL (3,1) -TNDATY) 520,525,505 

INDAY=I 

GO TO 530 

CONT TINUE 

JOBOUR=JOBDURE2Z00 

GO TO S507 

MATCH THE MONTH 

DO 540 T=INDAY,JOBDUR 

TFLTICAL (1, T)-INDATM) 540,535,537 

SEE TF THIS 1S THE SAME YEAR STILL 

TFC TINDATY-ICAL(3,1))538,536,536 

INOAY=I-1 

GO TO 545 

INOAY=I 

GO TO 545 

GIVEN MONTH HAS NO PROJECT WORK DAYS. PRINT MESSAGE AND RETURN 
BLANK=FMONTHCINDATM) 

INDATY=INDATY4#1900 

WRITE(62¢903) INDATDs BLANK, INDATY,NAME 

G60 TO 100 

CONTINUE 

IF CONTROL COMES HERE, MONTH NUMBER NOT FOUND IN ICAL IN YEAR 
JOBDUR=JN8DUR+200 

GO TO 507 

MATCH THE DAY 

00 555 T=INOAY, JOSDUR 

TFC ICAL (€251T)-INDATN)552,551,550 

GIVEN OATE NOT A WORKING QAY, BACK UP ONE 
INDAY=I-1 

K5=1 

CHECK TO SEE IF MAY OF REPORT OCCURS BEFORE PRIJECT 
TF CINDAY) 504,504,500 

THE MATCH FOUNO, NOW RETURN 

INDAY=T 

K5=0 

Ga TO 500 ‘ 

IFC TCAL (1,1T)-1TNDATM) 555,555,550 

CONT TINUE 

DAY NOT FOUNO IN CALENDAR, GENERATE A LONGER ONE 
JOBNUR= JOBOUR+ 30 

GN TO 507 

INDAY TS DAY TO ASSTGN 

D=INDAY 

PUT JORDUR BACK AS WAS AND RETURN 
JABONUR=MOBOUR 

RETURN 

JIUBNUR =M4OBDUR 

FRROR RETURN 


FORMATC(S/' saeeeets,* A PROJECT START OATE MUST BE ASSIGNED BEFORE 
1 ATHER START AND FINISH DATES MAY 3E ASSIGNED /,?* 
PNUT DATES, WR FIRST ASSIGN A PROJECT START NATE.%/,* eeeeeRI ss) 

FIRMAT(//% eeeeeer s/t af START OR FINISH OCCURRING BEFIRE PROJECT ST 
TART HAS BFEN ASSIGNED. '/,* THIS TS NOT ALLOWED. *//) 
FIPMAT(S/*® THE SIVEN IATE' E3e1XeA3eT5e* JICLURS BSEFIRE PROJECT STA 


EITHER WORK WITH 
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S. 


S. 


191 


102 


IRT* «LIT XsA3 pL 5a ty 


2's) 
903 FORMAT(//° 


eeexcetys,? 


AND §$O IT MAY NOT BE USED.*/,* NO ACTION TAKEN. 


THE MONTH OF THE GIVEN DATE’ .13,1XeA3e15e* I 


INCLUDES NO WORKING DAYS FOR PROJECT ***,A8,"**. 94," NO ACTION TAKEN 


2Ne*/) 
END 
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SUBROUTINE PROGFL(JBOR) 

FLOW 1S THE CALLING SUBROUTINE FOR SCHEDULING COMPUTATIONS 

SUBROUTINE FLOW REVISED BY T. MACDJERMOTT 14 JUNE 1967. CHANGE IS THAT 
NOW PROGRAM {[S CALLEO PROGFL -- AND IT CALLS PRIGSF (STMT 52) VICE PRSFEX. 
COMMON MODE, NUMACT »NOACT,NUMAR, ICODE, IFLOW, JATEM, DATEO,DATEY»DNUM 
COMMON NOHDL s JOBDUR,AsBeCeDe Eg Fe Get e KlLoK2eK3eKSeK5eKGeL INE (20) 

COMMON NAMEsNAMEL, NAME2,NAME3 9 NAMEG, NAME 5, A3( 12) » MAME 2 DBXXX( 50) 

COMMON TABLE +HOLD, TALPHA(16),4ONTHOL2) eRLXXX(20),1NTXXX( 20) 

COMMON NARROW(P) ss INCODE(P),INGRIO(P) »KTIME(P),TOTIME(P), LONET(P) 
COMMON SORT(P),JSORT(P),KHOLD(P),4OUM(P),4ARROW(P),ICAL(P),LHOL(P) 
OYNAMIC ARRAY NARROW, INCODE, INGRID,KTIME, IOTIME, TONE Ts SORT(O)s 


LJSORT,KHOL Ds» MDUM, MARROW, ICAL, IHOL 


DOUBLE PRECISION NAME,NAME1 ,NAME 2,NAME 3, NAYES NAMES p BLANK oe MAME 
DOUBLE PRECISION ITALPHA,FMONTH, OBXXX 

DESTROY CALENOAR IN {ICAL WHEN CALCULATING NEW SCHEDULE 

DESTROY ICAL 

K1L=9 

CALL RETRVE 

RECOVER NARROW FROM SECONOARY STORAGE 

DESTROY NARROW FIRST TO BE SURE THE AS INPUT IS NOT USED 

DESTROY NARROW 

K1l=5 

CALL RETRVE 

PUT KT AT TOP OF LIST BEING CONSIOERED, KB AT BOTTOM. THESE MAY CHANGE 
{=-1 

KT=1+2 

KB=NUMAR 

USE APPROPRIATE DURATIONS WITH GIVEN LAS VALUE TO SET UP RELATIONSHIP 
DO 39 I=KT,KB 

1S THERE A LAG OF ANY KINO 

IF (NARRIW(3¢1))30, 39-30 

YES, GFT THE OPERATOR, PLUS 1, TO BRANCH ON 

GET THE INPUT LAG VALUE 

KN=NARROW (3,1) 

K=ITABS(KN-(KN/10)*10) 41 

KN=KN/10 

NOW BRANCH ON OPERATOR 

GO 101349329 32233) eK 

STARIT-~STAR2T, SUBRRACT QURATION OF INOEPENDENT ACTIVITY, AOO LAG VALUE 
NARROW(3,2)=KN-KTIME(L »NARROW(1,1)) 

GFT THE PROPER LAG FOR THE NEW ARROW 

KN=-KN-KTIME(1L»NARROW( 2,1) ) 

NOW GO AND ADD NFW ARROW 

GO TO 490 

START-FINISH, SUBTRACT BOTH DURATIONS AND LAG FACTOR 
NAQPOW(3,T)= KN-KTIMEC Le NARVZOW( Le TP I-KTIMF CL SNARVZIW(2,1)) 

THE NEW ARROW HAS THE SAME KN, BUT WITH THE OTHER ALGEBTAIC RIGN 
KN=-KN 

NOW GN AND AOD ANOTHER ARROW 





ann an 


33 


34 
39 


40 


310 


52 
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GO TO 40 

FINISH-FINISH, SUBTRACT OURATION JF GEPENDENT ACTIVITY ,» AOO LAG VALUE 
NARROW(3,1)=KN-KTIME (1 ,NARROW(2,1)) 

GET THE PROPER LAG FOR THE NEW ARROW 

KN=-KN-KTIMEC1L»NARROW( 1,1) ) 

NOW GO ANO AGO ANOTHER ARROW FOR THIS F-F RELATIONSHIP 

GO TO 40 

NARROW(3,1)=KN 

CONTINUE 

GO TO 52 

FOR S-SsS-F, ANO F-F RELATIONSHIPS ANOTHER ARROW ITS AQOEO TO TOP OF LIST 
FIRST INCREMENT NUMAR, THEN REOEFINE NARRIW INE LINGER 

NUMAR=NUMAR# 1 

OEFINE NARROW,3+NUMAR,HALF,LOW 

NOW SHIFT ALt OF NARROW OOWN BY ONE 

00 310 KK=2,NUMAR 

K J=NUMAR-KK#] 

00 310 KM=1,3 

NARROW( KM, KJ4#1 D=NARROW(KM, KJ) 

PUT NEW (PSEUOD0) ARROW ON TOP OF LIST 

NAR OW( 1) 1 P=NARROW(2,14+1) 

NARROW(2,1}3=NARROW(1L, I+) 

NARROW(3,1)=KN 

TF THIS WAS LAST ARROW, LEAVE LOOP ANO GO ON TO 40. IF THERE ARE MORE 
ARROWS, THEN GO BACK ANO START LOJIP AGAIN WITH NEXT ARROW, NOW 2 BELOW. 
IFC IT 4¢1-NUMAR) 28,52 552 

FLOW NETWORK TO FINO ALt EARLY STARTS ANO FINISHES 

CALL PROGFF TO PERFORM FORWARD FLOW -= THIS CALL PROGBF WHICH OOES THE 
BACKWARO FLOWING. 

CALL PROGOL 

DESTROY NARROW 

BRING STATUS WORDS UP TO GATE, HOLO JOBOUR $O [T WON'T BE RUN OVER 
JBOR=JO80UR 

GET BACK STATUS WOROS IN CASE NUMAR WAS CHANGED 

Ki=10 

CALL RETRVE 

RETHRN 

ENO 
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SUBRDUTINE PROGIX 

COMMON MODE ¢NUMACT »NOACT sNUMAR, TIT CODE, I FLOW, DATEM, DATED, DATEY,0NUM 
COMMON NIHDOL pJOBOUR sp Ae Be Ce De Er Fer Gets Kl eK2eK3eKoeK5eKGeLINE( 20) 
COMMON NAMEsNAMET,NAME2,NAME3 NAMES py NAMES, AB( 12) 5 MAME» OBXXX( 50) 
COMMON TABLE HOLD, TALPHA( 16), MONTH(12) eRLXXX( 20), INTXXX( 20) 

COMMON NARROW(P), (NCODE(P),INGR( DIP) »KTIME(P) ,IOTIME(P),ITONET( OP) 
COMMON SORT(P),JSORT(P),KHOLO(P) eMDUM(P) »MARROW(P),ICAL(P),THOL(P) 
DYNAMIC ARRAY NARROW, INCDODE, INGRIDe KTIME,TOTIME, IONET»SORT(D) » 


LJSIRT »KHILD,MDUM,MARROW, ICAL, FHOL 


DYNAMIC ARRAY KPROGe J[OPROGe JSCOST, TACTRC 
DOUBLE PRECIS(ON NAME, NAME] »-NAME2,NAME3 2 NAME4 »NAME5», BLANK,» MAME 
DIUBLE PRECISION TALPHA,FMONTH,DBXXX 
DOUBLE PRECISION NAME? 

INTEGER F 

REAL RLXXX 

EQUIVALENCE (0BXXX(8),NAME7)}) 

EQUIVALENCE CINTXXX(6),NSEL) 

EQUIVALENCE CONTXXXO1L7 DST TOMRC) 
EQU(VALENCE (NAMES8,D0BXXX(9)) 

EQUIVALENCE (ONTXXX014)-01) 

EQUI VALENCF (RLXXXC17)eHPIPe(RLXXX(19),CI) 
EQUIVALENCE ((COPROG(1) »,DBXXX(23)) 
EQUIVALENCE (KPROG(1I),ORXXX(22)) 
KKK=INTXXX(20) 

SAVE THE WORKDAY SET IN DOD BY THE COL. 
IWKDAY=D 

JWKDAY=IWKDAY 

DISK FILE INFO(2sNAME8,ITFSTAT,IH,IL) 

IFC IFSTAT<“1339394 

WRITE(6,9) 

FORMAT(/e1X9°ND PROGRESS DATA HAS BEEN REPORTED. NO COMPUTATIONS 


1CAN RE MADE.?) 


ERROR RETURN 
TFCISTATOC JUNK s JSOVTI-1 369969965 
ENTRY HERE IMPLIES JSORT MUST BE CREATED. 
DEF(NE JSIRT,NDACT,HALF,LOW 

DD 70 JT=1,NOACT 

JSORTC TP =l 

NSEL =NOACT 

ENTRY HERE (MPLIES JSORT EX(STS. 
(NITIALIZE THE KTIME ARRAY 
NOFSTRDY KTIME 

DFF (NE KTO(MEs7ePO(NTER LOW 

09 5 IT=1l,?7 

NEFINE KT(MFE (TP »,NOACT,HALE,LOW 
RELFASF KTIMECT) 

NN 6 (=1,NSEL 

J=5SORTC(T) 

IG=ITONETOS) 


401 


402 
403 


35 


a1 


501 


503 


504 


502 


505 


506 
550 


300 


a3 


36 


an 
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OLSK GET(2,IG»~LINE(1L),9,12) 
KTIME (CL, JI=ELINECL) 

RELEASE IONET 

FIRST CALL TO PROGFL RETURNS PLANNED PHASE JURATION. 
IF (NDACT-NSEL}401 »402,401 

CALL PROGFL(JROR) 

GO TO 403 

JROR=JOBDUR 

ORGOUR=JROR-1 

CALL TO PROGET RETRIEVES PROGRESS OATA STIRED JN NAME 8. 
CALL PROGET(1,1,3) 

IF (NOACT-NSEL) 347 35¢ 34 

DO 30 I=1,NSEL 

JJ=JSORTCI} 

IFC IDPRNG( II} 30430, 321 
KPR=ITABS(KPROG(2,I5J).) 

IF(KPR}501 .501,502 

NO FINISH REPORTEO. 
IF(KPRONG( 3, IJ) )503,503,504 

NO START EITHER. 

KSWTCH=1 

GO TO 550 

NO FINISH BUT A START 

KSWTCH=2 

G9 TO 550 

A FINISH REPORTEO -- HOW ABOUT A START 
IF(KPROG(3,JJ))505,505-506 

FINISH RUT NO START. 

KSWICH=3 

GO TO 550 

START AND A FINSTIH. 

KSWTICH=4 

GO TO (30,300, 33, 36),<SWICH 

START ONLY 

KTIME(2,JJ)=KPROG(3,J5J5) 
KTIME(3,JJI}=KPROG( 3, JJ) 
KTIME(4e¢JJI=HKPRONG(3,IJSPHKTIMECL JJI-1 
KTIME (Ses JIP=AKPROG(3, SSI *#KTIME(L »,JJI-1 
G9 TO 30 : 
KTIME(2,JJV=KPR-KTIMECL »JJ} +1 
KTIME(3,JSJVHKTIME( 2,55) 
KTIME(4e¢JJ}=KPR 

KTIME(5S,yJJ}P=KPR 

69 TO 30 

IF BOTH S AND F ARE GIVEN, SET “TIME ES*Ss LS°Ss EF’ Ss GF°S-. 
KTIME(2,jJJ)=KPROG(3, JJ) 
KTIMEC3,JJI=KPROG(32I5JI) 
KTIME(GeJJ}=KPR 

KTIME(5,JJ}=KPR 
KTIMF(LeJSJI}=KPR-KPROG(3,JJ) 412 
CONTINUE 

60 TN 370 

Nn 37 YTel,eNSFEL 

J=IJSART(T) 

KPR=ITAS8S(KPING(2,I5)) 





103 
104 
105 
106 
107 
108 
109 
110 
L111 
1l2 
113 
114 
115 
116 
Bl? 
118 
119 
120 
121 
| EARS 
123 
124 
125 
126 
127 
128 
129 


130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
149 
141 
142 
143 
144 
145 
146 
147 
143 
149 
150 
151 
152 
1S 
154 
155 
156 


oc 


abate Ge Scat 


3R 
39 
37 


370 


42 


4l 


40 


200 


TI 
710 


te 


73 


81 


IF (KPR)37,37,38 

IF (KPROG(355))37,37,39 

KTIMECL»,JI=KPR-KTIME(3,J5) #1 

CONTINUE 

CHECK TO SEE WHICH INDEX IS REQUESTED. K3=1 IMPLIES COST INOEX ONLY: K3= 
2 IMPLIES WORK PROGRESS INOQEX ONLY, K3=3 IMPLIES STATUS INDEX. 

DO 40 J=1,NSEL 

T=JSORT( J} 

SEE ITF A FINISH HAS BEEN REPORTED, 

IF(KPRNG(221) 1941242241 

KTIME(4-1)=0 

KTIME(5,1)=0 

ITF (KPROG(3,41)140243,40 

KTIME(3,1)=0 

KTIME(2,1)=0 

CONTINUE 

SECONO CALL TO PROGFL RETURNS LATEST REVISED ESTIMATE OF PHASE/PRIJECT 
CALL PROGEL(JROR) 

CHECK THE VALUE OF ICOST TO SEE {EF ESTIMATED) COST NATA EXISTS IN NAMET. 
KL=10 

CALL RETRVE 

ICOST=INTXXX(9) 

IFC INTXXX(20)-2)200, 72,200 

IFC TCOSTI7 Le Tle 72 

IF ICOST IS ZERO, PRINT ERROR MESSAGE AND RETURN -=- QTHERWISE, GO AHEAD. 
WRITE(6,710) NAME 

FORMAT(//,1X%,*COST DATA HAS NOT BEEN FILED FOR PROJECT *%,ABe*. CO 


° 


IST INDEX CANNOT BE COMPUTEO.',/) 


DESTROY JSORT 

DESTROY KPROG 

ERROR RETURN 

NAME 7=NAME 

CALL ADDNUM(NAMET,7) 

OISK FILE INFOC2sNAME7,JUNK,IG,IL) 

DISK GETC2,IGsLINECL) »O00B+ JUNK NEXT) 

COMPUTE COST COMPONENT OF STATUS INODES. RETRIEVE EST. COST OATA FROM 
NAMET. 

IG=LINECT) 

LEN=LINF (2) 

NEFINE TACTRO,LEN,FULL »L OW 

OISK GET(2,TG,TACTRO(1) 40,09 SUNK, NEXT) 

NEFINE JCIST,LEN,FULL LOW 

OO 73 T=aletFNn 

IG=TACTRC(T) 

OUISK GET(2,TGeLINECT) 2024, SUNK NEXT) 

SSISTCP=LINELL) LOO 

OESTROY TACTPC 

TACTCH=0 

beseo=h 

COMPUTE FSTIMATED COST TO OATE. 

ALWAYS US JOOST WHEN COMPUTING ESTIMATED COSTS. OON’T EVER USE KPROG 
COSUS« IF ACTIVITY IS FINISHED, TAKE WHOLE COST -- ITF IN PROGRESS, TAKE 
LINEAR POSTION OF COST == IF NOT SVASTED, TAKE ZERD COST, 

TF INIAC T-NSEL 606,605,606 


406 NESTROY LONET 





Lor 
158 
159 
160 
6! 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
18! 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
LoS 
196 
197 
198 
199 
200 
21 
202 
203 
204 
205 
204 
207 
208 
2209 
205 
ett 


ANAND 


601 
600 


610 


609 
611 


607 
605 
76 
77 


75 


74 


82 
83 
84 
85 


81 


R6 


aT 
RO 


90 


DESTROY LOTIME 
K1=9 

CALL RETRVE 

00 600 T=l,NSEL 

J=JSORTI1L) 

IG=lLOTIME(J) 

OLSK GETI2—¢IGeLLNFEI2),5420) 
NO 601 L=2.5 
KTIME(L,J)P=LINEC(L) 

CONTINUF 

DM 607 T=leNSEL 

J=JSORTCT) 
KPR=1ABS(KPROG(2,J)) 

IF (KPR)609 »609,610 
KTIME(4,J)=KPR 

KTIME(5,J)=KPR 

IF IKPROGI39J))607,607,611 
KTIME(2¢J)=KPROG(3,J) 
KTIME(3eJ)=KPROG(3—J) 
CONTINUE 

NO 74 =1,NSEL 

J=JSORTIT) 

TFL IWKOAY-KTIME(29J3))749 76% 76 
LFLIWKOAY-KTIME(4,J))75277,77 
TESTCO=LESTCO*UCOST(Y) 

GO TO 74 
OLFF=IWKOAY-KTIMEI2,9J) 
NIV=KTIME(L,J) 
LESTCO=I1ESTCOFe( (NT FF/OIV)FJCOSTIJ) ) 
CONTINYUE 

COMPUTE ACTUAL COST TO OATE. 


IF ACTIVITY LS IN PROGRESS,» TAKE LINEAR PORTION OF COST -- 
TAKE ENTIRE COST AS REPORTED IN NAMES (DR NAMET ITF NOTHING IN 


IF NOT STARTED ASSIGN ZERO COST. 

HO 80 T=leNSEL 

J=JSORTCT) 
LFECTIWKOAY-KTIME(2,J))80,82,82 

TFC IWKDAY-KTFIME(4,J) 381,83, 83 

IFC KPROGCI2J)) 84, 84,85 
TACTCO=I1ACICO+JCOSTIJ) 

GO TO 80 

LACTCO=IACTCO+KPROGII»J) 

GO TO 80 

PIFFACWKOAY-KTIME(2,J) 
DIV=KTIME (CT, J) 

IF(KPRNGIT +J))86,86,87 
TACTCO=1ACTCO+I(OTFF/DIV)I*#JCOSTIJ)) 
GA TO 80 
TACTCOS=LACTCI+LINOIFF/ILV)FKPROGII2J)) 
CONTINUE 

IPHCO=0 

AN 90 T=1,NSEL 

J=JSORTII) 

COMPUTE ESTEMATEO PHASE OR PROJECT COST. 
TSHCN=TPHCO+ICOSTCO SJ) 


NAME8) 


LF FINISHED, 


82 
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A232 
254 
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25 
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259 
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DESTROY JECDST 
COMPUTE THE COST INOEX. 
ACOST=IACTCO 
ECOST=IESTCD 
TCOST=IPHCO 
CIl=(TCOST~-(ACOST-ECOST))/TCOST 
IF ND START AND/OR FINISH OATA HAS BEEN REPJATED, ZERO THE APPROPRIATE 
PLACES IN THE KTIME ARRAY. 
OESTROY KPROG 
SEE IF ITIMRC HAS BEEN OEFINEO -- IF NOT, MAKE IVF 15 PERCENT DF JOBOUR. 
IFCITIMRCE) 737, 786,737 
786 ITIMRCOC=(€.15) *J08DUR )+.5 
WRITE (6,787) ITIMRC 
737 FORMAT(O/,1X,*° ASSIGNMENT OF TIME RECOVERABLE WAS NOT MAOE. Ttcrs. F 
LAKEN TO BE °,14,° OAYS.*) 
TN=TIME NOW. 
737 TN=IWKDAY 
PRD IS THE REVISED NETWORK DURATION. JBOR (AFTER SECONO CALL TO PROGFLI 
CONTAINS THE REVISED VALUE PLUS ONE. 
PRO=J8OR-I 
IF ONSEL-NOACT) 962» 963,962 
PTR IS THE PHASE TIME RECOVERABLE. 
962 PTR=ITIMRCOC*¥(DRGDUR/S (JOBDUR-I.)) 
CONST =PTR*(1.-€TN/( JORDOUR-1.))) 
NN 94 J=IeNSEL 
I=JSORT(Y) 
IF CKTIME (2,1) -IWKNDAY)940,940,94 
94 CONTINUE 
WRITF(64952) IWKOAY 
RETURN 
940 ND 95N J=l,NSFL 
T=JSORTCOS) 
IFCKTIME (4,1) -IWKDAY)950, 9641964 
950 CONTINUF 
WRITE(6H,952) IWKDAY 
952 FORMATO /s1Xs+*WORKOAY °,14,* DOES NOT DJCCUR JIURING THE EXECUTION DF 
1 THIS SUBSET OF ACTIVITIES. IT IS NOT VALID.®) 
RETURN 
9463 CONSTHaCT.-CTN/( JOBDUR-1.))) *ITIMRC 
954 ITFICONST)389,380,379 
390 WRITE(6,381) CONST 
33L FIRMATO/,1tX,*°NENDMINATOR OF WORK PRIGRESS INDICATOR IS °,F6.2,* NO 
I COMPUTATIONS CAN BE MADE OR ACTION TAKEN. ®) 
DESTROY KTIME 
RETURN 
379 IF(CONST-€REPN-EPND))189,19,19 
190 1F(F)18.198,19 
18 “ORE=CONST-(RPO-EPD)+.5 
WRITE(6,20) MORE 
20 FORMAT(O//,1%,°THE 2EMAINING WORK WILL REQUIRE *,13,* MORE OAYS THA 
IN CAN BF MADE UP, REVISE YOUR SCHFOULE.®) 
DESTROY KTIME 
RETURN 
19 WP=((CONST- €PRN-ORGDUR))/SCONST)+.005 
IF(F)850,950,899 





263 
264 
265 
266 
267 


268 
269 
270 
Zt 
272 


273 
274 
275 
276 
277 


278 
219 
280 


281 
782 
283 


284 
285 
26 


C 


OEPENOING UPON WHICH INOEX WAS REQUESTED, OUTPUT THE VALUE. 
850 GN TO (801,840, 870) »KKK 
BOL CI=CI+.005 
WRITE(6,802) CIyJWKOAY 
BO2 FORMAT(30X,"*%#s THE VALUE OF THE COST COMPINENT IS "F5.2,* FOR OA 
LY ',14,% eee") 
OESTROY KTIME 
RETURN 
840 WP=WP+.005 
WRITE(6,841) WP, LWKDAY 
841 FORMAT(25X,"'*#** THE VALUE OF THE WORK PRIGRESS COMPONENT IS 'oF5. 
12,° FOR OAY *,14,* #88?) 
OFSTROY KTINE 
RETURN 
870 SI=WPtC1+.005 
WRITE (6,101) SI, JWKOAY 
101 FORMAT(/,31X,"'*%#% THE VALUE OF THE STATUS INOEX IS %9F5.25° FOR O 
TAY °,14,°% eee?) 
LF (ABS(CI-1.)-.1) 205 4205 302 
392 WRITE(6,303) CI 
303 FORMAT(/,10X,**##* NOTE -- VALUE OF COST COMPONENT IS %sF6.39" ### 
1#*) 
205 IF{ABS(WP-1.)-.1)899,899, 202 
202 WRITE(62203) WP 
203 FORMAT(/,10X%,"*#**# NOTE -- VALUE OF WORK PRIGRESS COMPONENT IS °oF 
16.3,% e##e?) 
899 DESTROY KTIME 
RETURN 
FNO 
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4D 
41 


5D 
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SUBROUTINE PRDGMO 
COMMON MDDEsNUMACT»NDACT,NUMAR, ICODE, IFLDd y DATE 42 DATED, DATEY,DNUN 
CDMMDN NDHDL, JOBDUR, Ay 8yCy Dy Eg Fe GoHe Kl 9 K29K3 9K4 ep K5 9p KOeLINE(20) 
CDMMON NAME ,NAME] »NAME2_NAME3_ NAMES» NAMES, A3( 12) 9 MAME »DBXXX(5D) 
CDMMDN TABLE,HOLD, IALPHAI1L6),MONTHI12}3 »eRLXXX( 290) 9 TNTXXXI20) 
COMMDN NARRDW{P),INCDDE(P),INGRID(P) »KTIMEIP},IDTIMEIP), IONET(P) 
CDMMON SORTIP) »JSORTIP) »KHOLDIP) »,YOUNIP) »YARROWIP) »ITCAL(P),THILOP) 
DYNAMIC ARRAY NARROW, INCDDE,INGRID,KTINE, LOTIMEs IDNET, SDRT(D) 5 
IL JSORT,»KHDLD, 4DUM, MARRDW, ICAL, IHOL 

DDUBLE PRECISION NAME,NAMEL »NAME2e NAME 39 NAME 4— NAMES» BLANK 9 MAME 
DDUBLE PRECISIDN IALPHA,FMDNTH, DBXXX 

INTEGER F 

REAL RLXXX 

EQUIVALENCE IRLXXX(17)—¢WP) eC RLXXX(19),CT) 

EQUIVALENCE (DBXXX(12),STATRY(1)) 

EQUIVALENCE (IPRO0G,INTXXX(10)) 

DYNAMIC ARRAY STATRY 

KIND=INTXXXI2D} 

DESTRDY STATRY 

DEFINE STATRY,1DeFULL,LOWsSTEP=5 

RELEASE STATRY 

TAKE THE LARGER OF THE TWD DATES AS THE TERMINAL DATE. 
IFIO-E}3D0,40,50 

WRITEI6,41) 

FDRMATI/+,1X,*1010T -- BDTH DATES ARE THE SAME.®) 

ERROR RETURN 

ILAS=D 

ISTA=E 

cD To 21 

ILAS=E 

ISTA=D 

CHECK TO SEE THAT TERMINAL DATE DDESN*T EXCEED JOBOUR. 

IFC TLAS-JOBDURI1,2,2 

WRITE(6,3) ITLAS 

FDRMATI/,1X,*°TERMINAL DATE FOR INDEX REQUEST, DAY *%»1I5e-*, IS BEYON 
1D THE END OF THE PROJECT. REVISE REQUEST DATA.’) 

ERRDR RETURN 

JI=ISTA 

I3=ILAS 

14=0 

15=0 

IFT ILAS-IPRNG162 »62,61 

I2=IPRNG 

GOTH) TZ 

12=13 

IFUCTLAS<1STAI-1D9940495 

INC=5 

WRITE(6,7) INC 

FORMAT(/,1X, "INDEX DATA WILL BE PRESENTED IN %,12,* DAY INCREMENTS 





80 
85 
90 
95 


20 


71 


900 


1003 


70 


bet) 

JJ=1 

GO TO 8 

INC=10 

WRITE (607) INC 

JJ=1 

IF{ IL AS-1STA)20,10-.10 
D=ISTA 

CALL PROGIX 


STORE THE STATUS INDEX AND ITS COMPONENTS IN THE ARRAY STATRY. 


IF C(KINO-2) 80,854.90 
STATRY(JJ)=RCTI 

GO TO 35 

STATRY( JJ) =WP 

GO TO 935 
STATRY( JJ) =WPFCI 
ISTA=ISTAtINC 
JJ=JJ+l 

GO TO 8 

CONTINUE 
IF(F)70,70,71 
DEFINE NARROW, JJeFULL,LOW 
LINE (6)=JJ-1 
JTM=LINE (6) 


VALUES BY 10000. TOD ELIMINATE DECIMAL FARACTIONS. 
PUT VALUES FROM STATRY INTO NARRDW PRIOR TO CALLING PRGRAF -- MULTIPLY ALL 


DO 900 I=I,JTM 
NARRDW(1)=STATRY(1I)#10000. 
DESTRDY STATRY 

WRITE(6, 1003) NAME 
FORMAT(///4646X_**%** [INDEX PLOT FOR PROJECT 
LINE (IT)=J1 

LINE (2)=12 

LINE (3)=13 

LINE(4)=14 

LINE(5)=15 

AOO TN STACK{(I,e*PRGQAF*) 
TRANSFER TD STACK 

RETURN 

ENO 


*,AB,* 


eee! //) 


56 
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SUBROUTINE PRSAVE 
THIS SUBRIUTINE SAVES THE VALUE SET IN K5 AFTER A REQUEST FOR A STATUS 
INOEX HAS BEEN MADE. 


COMMON 
COMMON 
COMMON 
COMMON 
COMMON 
COMMON 


MODE» NUMACTNOACT »NUMAR, ICODE, IFLOWs-DATEM, DATED, OATEY s ONUM 
NOHOL » JOBOURsA, Be Ce De Ex Fe GeHe KI eK 29K 3eKSeKSeKG6,LINE( 20) 
NAME »NAMET »NAME2sNAME39 NAMES, NAMES, A3(12) 2 4AMESOBXXX(50) 
TABLE eHOLD, TALPHA(I6),MONTH(I2) sRLXXX( 20) eI NTXXX(20) 
NARROW(P), INCODE(P)SINGRIOUP) sKTIME(P),TOFIME(P),TONET(P) 
SORT(P),JSORT(P) »KHOLO(P) »MOUM(P) s4ARROA(P),ICAL(P),THIL(P) 


OYNAMIC ARRAY NARROW, INCOOE, INGRIO“X TIME, IOTIME,IONET,SORT(O) » 
LISORT s+ KHOLOs MOUM, MARROW, ICAL» THOL 


OOUBLE 
ODUBLE 


PRECISION NAME,NAMET»NAME2,NAME3y_ NAMES, NAMES» BLANK yg MAME 
PRECISION ITALPHAsF MONTH, OBXXX 


INTXXX(20)=K5 


RETURN 
ENO 
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53 
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62 


63 
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SUBRDUTINE PROGET(IA,18,1IC) 

THIS SUBROUTINE RETRIEVES THE PROGRESS OATA WHICH HAS BEEN INPUT ANO 
STDOREO IN NAMEB. 

SETTING TA = O WILL CAUSE JUST THE IDPRDG’S TO BE RETRIEVED. IF IA = I» 
THEN COLUMNS 18 THRU IC DF NAMES WILL BE RETRIEVEO AND STORED IN KPROG. 
CIMMON MIDE,NUMACT,NDACT »NJMAR,ICDODE,TFLOA,IATEM, DATED: DATEY » ONUM 
COMMON NOHDL » SOBOUR, A, Be Ce De Ex Fe Gate Kl eK2eK3eKGeK5eKGeLINE( 20) 

CIMMON NAME, NAME], NAME2, NAME3,NAMES » NANE5,A3(012) oe MAME sOBXXX(59) 

COMMON TABLE sHOLD, IALPHA(16),MONTH( 12) ,RLXXX( 20) ,TNTXXX( 20) 

COMMON NARROW(P), INCODE(P),INGRID(P) »KTIMECP),ITOTIME(P), TONET(P) 

COMMON SDRT(P),JSORT(P)sKHOLO(P),MOUM(P) »MARROA(P),ICAL(P),IHIL(P) 
DYNAMIC ARRAY NARROW, INZTODE,INGRID,KTIME,TOTIME,TINET,SORT(D)» 


LISORT»KHILD,MDUM,MARROW, ICAL, IHOL 


OYNAMIC ARRAY IDPROG, KPROG 

ODUBLE PRECISION NAME», NAMEL»NAME2,NAME3_ NAMES »NAMES» BLANK,» MAME 
DIUBLE PRECISION TALPHA,FMDNTH, OBXXX 

NDUBLE PRECISION NAMES8 

EQUIVALENCE (DBXXX(9),NAME8) 

EQUIVALENCE (DBXXX(22),KPRDOG(1)) 

EQUIVALENCE (DBXXX(23),ITDPROG(1)) 

NAME 8=NAME 

CALL ADONUM(NAMEA?8) 

NISK FILE INFOC2,NAMES,TEXISTe IFIRSF,LASF) 
IFC IEXIST-1)20,20,51 

KPROG ARRAY DOESN'T EXIST. 

RFTURN 

DISK GET(2,TFIRST,LINECL p14) 

NEFINE ITDPRIG»,NJACT,FULL,LOW 

OISK GET(2,LINE(1),1DPROG(1),0-0) 

IF (14)53,53,54% 

IF JUST THE [DOPROG’S WERE REQUESTED, RETURN NIW. 
RETURN 

I= OTHER INFIRMATION WAS REQUESTED RETRIEv= IT FRIM NAMES AND STORE ITF IN 
THE ARRAY CALLED KPROGS. 

CONTINUE 

OEFINE KP20Ge9yPDINTER,LOW 

OO 62 1=15,1C 

DEFINE KPROG(T) »sNOACT,FULL,LOW 
NBYTEL=CIB-1)*4¢41 

NBYTE2=I1C*% 

ON 65 T=1,N3ACT 

IFC TI DPROG(1I)165,65,63 

DISK GET(2,TDPROG(I)sLINECTS) »NBYTEL»NBYTE2) 
DD 64 J=18,IC 

KPRNG(J, TY =LINECJ) 

CONTINUE 

RELEASE KPROG 

RELEASE IFOPRDG 

RETURN 
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SUBROUTINE PROGOL 
AS DOF JAN. 26 1966 

THIS SUBRDUTINE REVISED TO TREAT LAGS 

WeH. LINOER FOR SUBSYSTEM *PROJECT® OF ICES, JULY 1966 

SHORTENED SUBROUTINE, OES8UGGED OCTOBER 1966 

FFLOW MAKES THE FORWARO SCHEDULING COMPUTATIONS 

CI4YMON MODE,NUMACT,NDACT,NUMAR, [CODE, IFLOW,DATEM, DATED,IATEY,ONUM 
COMMDN NOHOL,», JOBDUR, Ae Be Ce Ov En Fe Gee Kl pK29K3,K4eK5 ep KG,LINE{ 20) 
COMMON NAME,NAMET sNAME2,NAME3 » NAMES» NAMES, A3(12) pe Y4AMES,OBXXX(50) 
COMMON TABLE,HOLD, [ALPHACT6),4ONTH(12) »,RLXXX( 20) ps INTXXX(20) 
COMMON NARROW P) ,INCODE(P), INGRIOCP) sKTIMEC(P) ,LOTIME(P), TONET(P) 
COMMON SORT(P),JSORT(P),KHOLD(P) ,YOUMOP),¥%ARROW{(P),ITCAL(P), THIOL ECP) 
OYNAMIC ARRAY NARROW, INCOOE,INGRIO,<TIYE,LITIME,TONET,SORT(ID)D« 
LJSORT »KHOLO,MDUM, YARROW, ICAL, FHOL 

DOUBLE PRECISION NAME,NAMET,NAME2,NAME3,NAME4,NAMES, BLANK» MAME 
ODUBLE PRECISION [ALPHA,FMONTH,DAXXX 

INITIALIZE STARTS AS 1 AND FINISHES AS T— #¢ JURATION 

BRANCH ON OATEM FOR WORK OAY START 

IF(DATEM) 2,2,3 

NOAY=DATED 

GO TO 4 

NOAY=I[ 

M0 10 [=1I,NOACT 

TF(KTIMECQ2¢T)) 7,657 

KTIMEC2,1T)=NOAY 

TF(KTIME(4,1))10,8,10 

KTIMEC4Ss TP=KTIMECT s T+ KTIMEC 2,1) 

CONTINUE 

SEE IF THIS IS A NETWORK WITH NO ARROWS. TF SOe SKIP THESE CALCULATIONS 
TFONtUMAR)51,51,52 

NOW WORK OOWN ARROW LIST CALCULATING ES ANO EF FROM EF OF SOURCES 
M0 50 T=1,NUMAR 

K=NARROW(1,1) 

KK=NARROW(2,1) 

TF(MIONE)LOD,99,1900 

LAG=NARROW (3,1) 

GO TO 98 

( AG=D 

SFE IF ES AT ARROW HFAOD IS LESS THAN EF OF ARROW TAIL ACTIVITY 
TFCK TIME(S »X )-KTIME(2eKK)*+LAGI50,50,8D0 

YES, SM PUT EF QF ARROWTAIL ACTIVITY INTO ES OF ARROWHEAD ACTIVITY 
KTIMEC2,KK)=KTIME(4sK)4L AG 

NOW ADD DURAT(ON TO GET EF, IF EF HAS NOT BEEN SET LARGER 
TFOCKTIMF (4s KK) -KTIME(2 »KKI-KTIMECL. KK) )82250,50 

KTIMEC 4s, KKI=KTIMEC2,KK)4KTIMECT » KK) 

CONTINUE 

RELEASE NARROW 

RFLFASF KTIMEC(1) 

RFLEASE KTIME(2) 
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NOW FIND JOS DURATION THE LATEST(GREATEST) 
JOBOUR=1. 

DO 60 T=1,NODACT 

TF ( JOBDUR-KT EME (451)165760160 
JOBDUR=KTIME(4,1) 

CONTINUE 

RELEASE KTIME(4) 

RETURN 

END 


EARLY FENISH 


90 
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NOW FIND JOB DURATION THE LATEST(GREATEST) EARLY FINISH 
JIBDUR=1 

0D 60 I1=1,NDACT i 

IFC JOBDUR-KTIME (441) 165460,60 

JOBDUR=KTIMNE(4, 1) 

CONTINUE 

RELEASE KTIME(4S) 

RETURN 

END 


90 





of 


ASSIGN 2=PROJECT 
ASSIGN 32ICES 
JRESTORE SYSIl 
Cop : 
SYSTEM *PROJ* "LINDER® 
REPLACE *SELINX* $$ SFLINX CALLS COMPUTATIONAL PROGRAMS FOR STATUS INDEX. 
CONOITION REAL *E* GE 1 $ ENTRY HERE IMPLIES WE HAVE MULTIPLE DATES. 
EXECUTE *PROGMD® $ CALL THE MULTIPLE OATE SUBROUTINE. 
EXECUTE *PROGDJ* $ DESTROY THE JSORT ARRAY. 
OTHFRWISE $ ENTRY HERE IMPLIES WF HAVE A SINGLE DATE. 
EXECUTE *PROGIX* $& EXECUTE COMPUTATIONAL SUBROUTINE TO FINO INDEX. 
EXECUTE *PROGDJ' $ DESTROY THE JSORT ARRAY. 
END CONDITION 


RETURN 


FILE 
1 


FINISH 


GCOO-BYE 


ELAPSEO TIME= 00.00 MINUTES. 





2 


TASSTCN  2=P20J ECT 
JASSIGN 3=ICES 
/RESTORE SYS1 
COP 
SYSTEM "PROJ* "*LINDER* 
REPLACE *PROGRESS® 
TGNORE- *REP* “DA* *AS* > *0F*% *FOR*® *wt 
PRESET REAL °H® EQ -[f S$ SET SO AS TO SKIP PROLEC IN, * TPOATE*. 
EXISTENCE *PRO* “FIN®* *STA* *COS* SET “l2*s514 55 
CONDITION *12° LE & 
DATA CHECK SFT *K4&* $ SEE IF THERE'S A DATE GIVEN 
CONDITION INTEGER *K4* EQ -t 
MESSAGE * NATE MISSING IN *REPORT*® COMMAND. NO ACTION TAKEN.® 
RETURN $ CEASE PROCESSING THIS COMMAND. 
OTHERWI SF 
END CONDITION 
CALL *IPDATE* 
CONDITION REAL °B* NE QO. 
FXECUTE *PRPNORK*® 
OTHFRWISE 
MOVE -* A) Une 20% 
END CONDITION 
PRESET "KI" EO. { 
EXECUTF *PROGST® $$ INITIALIZE FAR PROGRESS INPUT - CREATE NAMES. 
RFPEAT TASULAR 
IGNORE *ACT® *OAY* 
DATA CHECK SET *k4* ¢€ ITS THIS THE LAST DATA CARD. 
CONDITION INTEGFR "K4* LT 2 $$ NOT SATISFIED ITF NEXT DATA IS ACT. N 
IGNORE *LAS* 
REPEAT FXIT 
EN) CANDITION OPTIONAL 


MOOEN 2F48C *A* 2EQO €£ FISST NIDEVNUMBER. 





PRESET REAL *B* EQ 0. $ SET 8=0. SO YOU CAN CHECK IT LATER. 
CONOITIDN *MOOE* EQ 1 $ ITS NETWDRK A/A 


NO ID REAL *B* REQ $ SECONO NOOE NUMBER, 
ENO CONDITION OPTIONAL 
PRESET "KI*® FQ 2 $ CHECK ANO STORF ACTIVITY NUMBER 
EXECUTE *PRDGST' 
CONDITION *K3* LT £ $ SKIP DATA CARO TE BAN ACTIVITY NJ. 
OTHERWISE $ TF ACTIVITY ND. TS VALIO, CONTINUE. 


CONDITION *12" EQ 1 $ GENERAL PURPOSE INPUT CDMMANO. 


CALL *DATAST* $ SURROUTINE CDL TD PRDCESS PRDGRESS DAT 


OR CONDITION *12* EQ 2 $ CDMMANO ITS REPDRT FINISH 
IGNORE ‘F* 
CALL ‘ITPDATE* 
CONDITIDN REAL *B* EQ OL 
MOVE *A* TO *D* 
DTHERWISE 
EXECUTE *PRPORK* 
END CONDITION 
PRESEN "KI* EO 3 
EXECUTE "PRIGST* $ STDRE FINISH GATE IN LINEZ.= 
OR CONDITION *12* EQ 3 $ CDMMAND IS REPDRT START 
IGNIPE Ss" 
GALE 2 1PHATS* 
CONDITION REAL *B* EQ O. 
MOVE} "S211 =p? 
OTHERWISE 
EXECUTE *PRPORK* 
ENN CONODTTTON 
PRESFT *KL* EQ 4 $ STORE START OATE IN LINE3. 
FXFLUTE *PROGST® 
D2 COMDOITION "12" FQ 4 $ COMMAND TS REPORT CDST 
Palo e "Gs 


HOST REAL *C* 


lo 
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PRESET *KL*® €0 5 $ STDRE COST DATA. 
EXECUTE *PRDGST* 
END CDNDITTION DPTIDNAL 
PRESET “Kit EO 6 ‘ 
EXECUTE *PROGST* $$ STORE INFO ON THE DOISK 
END CONDITION 
END REPEAT TABIJLAR 
PRESET *KL* EQ 7 $ STORE ID NF UPDATED ACTIVITY IN DIRECTORY. 
EXECUTE *PROGST* 
OTHERWISE $ FF INVALID CDMMAND PRINT ERRDR MESSAGE. 
MESSAGE * INVALID DBJFCT NAME FOR *#REPDRT**® COMMAND. NJ ACTION TAKEN.! 
END CONDITIDN 
NEXT RECDRD 
NEW CDMMAND 
RETURN 


EILe 
1 


FINISH 


GOOD-BYE 


ELAPSED TIME= DD.OD MINUTES. 





ZASSIGN 2=PROJECT 
ASSIGN 3=ICES 
RESTORE SYS1 

cop 

SYSTEM "PROJ* "LINDER® 


REPLACE "DATAST® 


REPEAT 
Ss) SEE IF THE END OF CAPO FOLLOWS. 


OATA 


$ SUBROUTINE COL TO PROCESS PROGRESS DAT 


IF YES, EXIT THE REPEAT LOOP, 


CHECK SET "K6" 


CONDITION INTEGER *K6* EQ -1 


REPEAT EXIT 


OTHERWISE 


END CONDITION 


MOOTFIER *FIN® 


CALL *IPDATE®* 
CONDITION RFAL *B* EQ O- 
MOVE “eer 10 *0* 
OTHERWISE 
EXECUTE *PRPORK® 
ENO CONOITION 
PRESET “Ki (6033 


EXECUTE *PROGST* $ STORE FINISH DATE. 


NR MOOIFIER *STA® 


19 


4gon 


CALL *IPDATE® 
CONDITION REAL *B* EQ O. 
MOVE 8" 70 *o" 
ATHERWISE 
EXECUTE *PRPORK® 
EN. CONDITION 
PRESET "K1L* €9 & $ STORE START DATE. 
EYFCUTE *PROGST!® 


TCHS? 
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NG. iD REAL =*¢* 
PRESET "Ki* €Q SS STGREsCOSTe Dale. 
EXECUTE *PROGST* 
GR CONDITION *K4&* £9 29 
NO §0 REAL *C* 
PRESET *KI* EQ 5 $ STORE GOST DATA. 
EXECUTE *PROGST® 
NR CONOITION *K4&* €9 31 
CALL *IPOATE® 
CONDITION REAL *8* EQ Oo. 
MOVE "A* 10 "DO" 
OTHERWISE 
EXECUTE *PRPORK' 
ENO CONOITION 
PRESET *KI* EQ & $ STORE START OATA. 
EXECUTE *PROGST® 
OR CONOITION *K4* EQ 32 
CAEL: * iPOATE®* 
CONDITION REAL "Bt £O Q. 
MOVE *A* TO *O* 
OTHERWISE 
EXFCUTF *PRPORK* 
END CONDITION 
PRESET "KL" EG" 3. S$ STIREPEINISH DATE. 
EXFCUTE *PROGST* 
OTHERWISF $ NO MNOTFIER INPUT. 
$ THIS PORTINN OF THE CNL TS USED WHEN THERE ARE NO MODIFIERS GIVEN WITH DATA. 


MESSAGF "NO MOOTFIERS. ASSUYED INPUT JROER TO BE START 
Meets. COST COPTIONAL). * 


CALL *IPNATE® 
CONOITION RFAL "BY €9 0 
MOVE "A® TN fps 


ATHEPWISE 
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END CONOITION 
PRESET SURI Sem 
EXECUTE *PROGST* $ STORE THE START OATA. 
EACL: §TPDATE® 
CONDITION REAL *A EQ O 
MOVE *A* TO *H* 
QTHERWISEF 
EXECUTE *PRPORK® 
ENO CONDITION 
PRESET "KI*® EO 3 
EXECUTE *PROGST*® $ STORE FINESH DATA. 
DATA CHFCK SET *G* 
CONDITION INTEGER *G* GE 2 
$ G LARGER THAN 1 IMPLIFS THAT A NUMBER ~-— HERE A COST ~~ FOLLOWS. 
NO 1D REAL °C* REO 
PRESET, “Ki SEO ss 
EXECUTE *PROGST® $ STORE COST OATA IF IT EXISTS. 
OR CONDITICN ENTEGFR *G* EQ -1 
OTHERWIESF 
MESSAGE * €¢* ERROR IN PREVIOUS DATA CARD. PROCESSING CONTINUES #&&? 
END CONDITION 
REPEAT EXIT 
ENN CONDITION 
ENO MOOIFIER BLOCK 
END REPEAT 
RETURN 


FILE 
l 


FINI SH 


GOON-SYE 


ELAPSED TIMF= 99.99 MINUTFS. 





APPENDIX B 


There is a special convention for writing commands in a text such 
as this. Words in parenthesis are optional and may be omitted. The 
set of characters "('projname')" is, of course, the name of the parti- 
cular project in question enclosed in quotes. This information may be 
omitted if the project name is available from a previous command. Fi- 
nally, any word appearing in small letters (such as "date'") indicates 


where alphameric or numeric data must be provided. 
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